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ATLAS SUPBRVISOR AITO FIXED STORE ROUTINES 



This document contains annotated programs of the Atlas Fixed 
Store and Supervisory Routinos, 

It should be used in conjunction with the Volume which contains 
an overall description of the routines and their relationships to 
each other and also the volume containing the routine specifications. 

As all the programs are not yet available this document will 
be cori'ected and supplemented fi-om time to time. 
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R400/1 



MAC-]^rSTIC TAPS R OUTINES ~ AB BKEVIAJI0H3 

PBA Present Block Address, read from the magnetic tape V store 

EBA Expected Block Address, used to check the PBA 

lf?BA V/anted Block Address, used during search orders 

SBA Stop Block Address, used to check if the tape has stopped 

LBA Leading Block Address (alu'ays non zero) 

TBA Trailing Block Address (alv/ays zero) 

CU Current Order, or order "being processed 

FO Following Order, or order waiting to be processed when the CU 
is completed and the store is ready 

DD Beck Directory, a flip flop register 

ED Error Directory, a flip flop regioter for tape errors and faults 

TOR Tape Control Register 

TQ Tape Queue 

Qpi Location of most recent TQ entry for this channel. 
m is contained in the DD 

Qp Location next TQ entry to he processed for this channel, 
p is contained in the CU- 
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R4C0/2 

R400_! Tape Flip Plops in Subsidiary Store 

The following two flip flops are contained in the CU locationss 

CU not complete flip flop •■ 

Set when a tape order is placed in a CU location. 
Reset when the order has heen successfully completed. 

S upervisor exit flip flop 

Set "by the main supervisor. 

Reset on successful completion of the order, on entry to R217. 

The following two flip flops, in the DD location, are for the 
purpose of ensuring that the total number of possihle long interrupts, 
which may have to he entered in an SER queue is not more tha-n two entries 
per channels 

Clear last flip flop 

Set when a tape order has heen successfully completed, hut the 
tape has not heen stopped. Reset hy the clear last long interrupt 
routine. 

Prepare nest flip flop 

Set, if the clear last flip flop is set, when testing Y/hether to 
enter the prepare next routine. Reset hy the clear, last long 
interrupt routine. 



The following two flip flops in the DD locations are to test either 
whether to initiate the next tape order and start the tape after coming 
hack from the Organise store subroutine R414> or whether to initiate the 
next tspe order as soon as the current order has heen successfully completed, 
without stopping the tape. 

Tape in uao flip flop 

Set when the tape is started moving. 

Reset when the tape has stopped, after successfully completing 

a tape order. 

Store ready flip flop 

Set Ti/hen the store is ready for the next tspe order. 
Reset when the next tape order is initiated.. 
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The following: tvo flip flops are for the purpose of ensuring that 
if a LBAs forwards, or a TBA, reverse, is encountered, then another BA 
interrupt should occur within 0,1 secs- 

P1 s Set at a LBA, f orv/ards, or TBA, reverse 

Reset at a TBA, forwards, or LBA, reverse 

F2s Set hy the clock interrupt, if P1 is set 
Reset at a TBA, forwards, or LBA, reverse 

Note that if F1 and F2 are both set when a clock interrupt occurs 
then the transfer is ended and control of the tape passes to the monitor. 
This, hov/ever, does not apply to Orion tape. 

Location F3 

This location is used to record the clock reading of the time 
when either a start tape order or a stop tape order. is written to the 
TOR. It is reset as soon as a BA interrupt occurs. If the clock 
interrupt routine finds that P3 has not been reset after a certain 
interval of time, it is assumed either that the tape has failed to 
respond to start or stop order, or that BA interrupts are failing 
to register. 

Tape Counters in Subsidiary Store 

CEs This counter is used after slowing down a long search from 
fast speed to normal speed. It counts consequentively 
sequenced LBAs, in order to determine when normal BA interrupts 
are assumed to occur. The counter is also used Y/hen aligning 
the tape to the BBA. It counts the number of changes of 
direction of tape movement required to align the tape to EBA = PBA. 

CTs Number of seconds on a fast speed search before it has to be 
slowed down to nomal speed. 

CQs Number of blank spaces in the tape queue. Note that this counter 
must be preset, probably at 15. 4« Otherwise, no tape order can 
be processed, 

CRs This counter is contained in the CU location. It counts the 
number of tines the current order has been repeated, due to 
error conditions. 
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R400/4 



Tape Order (Qp, FO, CU ) 
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11400 s Digits in Tape Working Storo (continued) 
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E401 
B40U B.A. Interrupt Entry 

Whenever a B.A. interrupt occurs from magnetic tape this routine is 
entered. It stores the following information from the subsidiary store 
and the tape V-store into B registers? PBAj EBA? TOR, CU, DD. It also 
resets location P3 s-nd the BA interrupt LM. The routine then transfers 
control to an interrupt routine, v/hich has been preselected by the supervisor 
or monitor programs. The main B.A. interrupt routine include the follov/ings 

1. R402 B.A. interrupt routine 

2. R403 Tape stopped interrupt routine 

3. R404 Alignment of tape to EBA 

4. R405 Calculation of B3A after an off channel search 

5. R50O (licit) if BA interrupts are to be ignored 

Registers of fixed store 10 
Instructions obeyed 10 

B registers used III-II6, 123 
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R403/1 

R402; B.A. Interrupt Routine 

The B.A. Interrupt routine deals with the B.A. interrupisas they 
occur from a magnetic tape, which is moving under normal operation. It 
is entered from the B.A. interrupt entry routine II40I at .one of two entry 
locations. One entry corresponds to the LEA, and the other entry 
corresponds to the TBA 

The routine accomplishes the following? 

1. Checks the PBA = EBA. If there is any discrepancy, the routine 
records an error in the error directory, and stops the tape. 

2. At a LBA, f onwards, or TBA, reverse, it sets flip flop hit F1 

to indicate that another BA interrupt is expected Yi?ithin 0. 1 sec. 
At a TBA, for'^ards or LBA, reverse, it resets flip flop hit F1 . 
It also resets flip flop hit F2, which has been set hy the clock 
interrupt. Note that if hoth F1 and F2 are set when a clock interrupt 
occurs, it indicates that a BA interrupt has failed to register. If 
this should occur, the transfer is ended and control of the tape is 
passed to the monitor. This, however, does not apply to Orion tape. 

3. At a LBA, for^/ards, or TBA, reverse, the CU is tested. If the CU is 
a write order, then the "Write" digit is set in the TOR. If the CU 
is a read order, the TCR is tested to ensure that the "Start Read at 
next BA" digit is set. If it is set, then the "End Read at IText BA" 
digit is T/ritten to the TOR, otherv/ise, an error is recorded in the 
error directory and the transfer is ended, hut the tape proceeds to the 
next B.A, interrupt hefore further action is taken. If the CU is a 
search, the WBA is compared with the EBA, and action to proceed, or 
stop the tape is taken accordingly. 

4. At a TBA forwards, or LBA, reverse, the TCR is checked for certain 
error conditions, such as check sum error, not 512 words in a block, 
write digit not reset, according to. the order that has just hoen completed. 
Also the parity 3 and parity 6 errors are examined. Any errors which 
are indicated are recorded in the error directory, and the tape is 
stopped. 

5. At a TBA, forY/ards, or LBA, reverse, if the tape order Just completed 
was a read or T/rite, hut not on Orion tape read order, and no errors 
were found, then the corresponding entry in the PAR is altered to 
prevent it from interfering with any following tape transfer order. 

6. At TBA, forv7ards, or LBA reverse, if the next tape order is ready 
then it is moved into position to be processed, and the corresponding 
entry in the PAR is set to enable the page to accept the transfer. 
Hence, successive tape orders can be processed without stopping the 
tape. This, hov/ever, is not done when the tape either is in monitor 
control, or is an Orion tape. 
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1 _j) R402s continued 



7. At a TEA, forwards, or LBA, reverse, either the routine exits to the 
clear last long interrupt, E412, if the previous tape order was a read 
or T/rite order and the tape is proceeding to the next tape order with- 
out stopping, or the routine exits to main control. 

8. At a LBA, for?;ards, or TEA reverse, either the routine exits to the 
prepare next long interrupt, R411 if there is space in the SER tape 
queue, or the routine exits to main control, setting a flip flop bit 
in the DD to indicate that as soon as there is space in the SER tape 
queue, the prepare next long interrupt can he entered. 

9. If the tape has to "be stopped, then the routine v;rites the clock 
reading into F3 location, to indicate that a stop B.A. interrupt 
is expected viithin a certain period of time. 

Entry R401 BA Interrupt entry 

Exit 1. E411 Prepare next long interrupt 

2. E412 Clear last long interrupt 

3. Main control 
Fixed store registeiBl24 

Instructions obeyed varies from 15 to 50 i^^ normal operation 
B Registers used 111-117 
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E403S Tape Stopped Interrupt Routine 

The tape stopped interrupt routine is entered from the BA interrupt 
entry R4OI at the next BA interrupt after a stop order has "been given to 
the tape. To determine whether the tape has stopped it compares the ?BA 
with the value stored from the previous BA interrupt. If there is no 
change, it is assumed that the tape has stopped. 

If it is assumed that the tape has stopped, the routine then enters 
the long interrupt start tape routine R413» This does not apply, however, 
if the tape is endeavouring to align itself to stop hefore EBA^^VBA. In 
this case, the tape is either restarted again moving in the opposite 
direction, or the monitor routine is entered, depending on whether the 
tape has heen restarted less than or more than five times, respectively. 

If it is indicated that the tape has not stopped, the routine checks 
to determine if the TOR is set to stop, and informs the operator accordingly. 
BA interrupts, which may occur after the tape has indicated that it has 
stopped, are ignored. 

Entry s R40I BA Interrupt entry 

Exits 1. R419 Start tape long interrupt 

2. - Failed to find EIBA r.ftGr 5 attempts 

3. - Failed to stop 

4. - TCH not set to stop 
3' Main control 

ITumher of fixed store register3 30 

Maximum number of instruction obeyed I6 
B register used 111-116, 123 
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E404 



R404s Alignment of Tape to E.B.A. 

This B^A. interrupt routine is used in conjunction vd.th the tape 
stopped interrupt routine "by the main stoi'e monitor program when it is 
desired to align the tape to stop just hefore PBA = EBA, where the EBA 
remains unchanged. 

Successive PBA's are checked at each BA interrupt until one is found 
equal to the EBA, when the tape is moving in reverse. The tape is then 
stopped. This search for the required PBA is repeated, if necessary, up 
to five times before indicating that the required PBA cannot be found. 

Entry s R40I BA interrupt entry 

Exitss 1. (5/402) of BA interrupt routine 

2. Main 

Number of fixed store registers 17 

Maximum number of instructions obeyed 12 

B register used III-II6, 123 
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t3 M95s Calculation of E.B.A. 



This SA interrupt routine is used after the tape has been brought 
back to normal speed fruia fast cpeed towards the end of a long off channel 
search. It determines v/ken BA interrup-b occur normallyj and calculates 
the EBA. 

The value of the EBA is taken as the value of a certain number of 
consecutively sequenced, and checked PBA's. After having determined this 
value for the BBA, then BA interrupts Y/ill normally be processed by routine 
R402. 

Entry; E401 BA interrupt entry 

Exit Main control 

number of fixed store registers 24 

Maximum number of instructions obeyed 10 

B registers 111-116, 123 
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E406 

R40^8 Beck Failure Interrupt Routine 

The deck failure interrupt routine identifies whether the deck failure 
was caused by a read or v?rite crisis, or "by the tape "being stopped on the 
metal "backing, or "by a mechanism failure. It then deals with the interrupt 
as follov/ss 

If the interrupt was caused by a read or write crisis, the routine 
exits to (1/407). Otherwise it writes "End Transfer" to the TOR of the 
effected channel, resets the timers and tries to reset the interrupt. 

If the interrupt cannot he reset, the tape is stopped and disengaged, 
and the operator is informed. There should he no further BA interrupts, 
hut if any occur, they will he ignored. 

If the interrupt has been reset, and it is found that the metal backing 
digit is set in the TOR, then the routine exits to (1/416), the metal 
backing long interrupt routine. 

If the interrupt has been reset, and the tape is not at the metal 
backing, then the tape will not be stopped. An error mark will be written 
to the ED of the channel concerned, and the tape continues moving until the 
next BA interrupt occurs, before further action is taken. 

Entry s from deck failure interrupt 

Exitss 1. 1/407 Read and Write Crisis 

2. 1/416 Metal backing long interrupt 

3. R41-9 Deck f-iluro cnnnot "be-reset 

4 . Main 

ITumber of registers of fixed store 34 
B registers used 111-113, and 123 
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R407 

B407 S Parity 3 & 6 Read & Write Crisis Time Interrupt 

Parity 3 interrupt occurs if an incorrect parity is detected in the 
core store page in the directory, \vhen reading from tape, or writing to 
tape. There is no indication given as to which channel was affected. 

The routine, therefore, has to examine the TCRs of all channels to 
determine which are processing read or write orders. If a channel is 
processing a read or write order, the transfer is ended, and an indication 
is made in its respective ED that there has heen a parity 3 fault. If a 
channel is not processing a read or v;rite order, and indication is made to 
its respective ED to stop the tape from processing further tape orders for 
the duration of the parity 3 monitor program, which will he called in after 
all the tapes have been stopped. 

The read and write crisis interrupts occur if the word transfer between 
the tape co-ordinator and the central computer is not met within the crisis 
time of approximately 13 microseconds. This causes a deck failure interrupt, 
which transfers control to this routine. It is treated in the same manner 
as a parity 3 interrupt. 

Parity 6 interrupt occurs if an incorrect parity is clotected in the 
tape co-ordinator when writing to tape. The buffer parity fault digit is 
set in the TOR of the effected channel. The routine examines the TCRs of 
^^ all channels, and if any channel has the buffer parity fault digit set, its ' 
transfer is ended, and an indication is made in its respective ED that there 
has been a parity 6 fault. The other channels remain unef footed. 

The parity 3 and parity 6 interrupt routines are combined into one 
routine, but they have different entry points as indicated below. The 
routine ends by resetting the interrupt in the V store and returning control 
to main. The BA. interrupt routine will then identify and deal with the 
fault accordingly. 

Entrys 1, Parity 3 interrupts 

2. Parity 6 interrupts 

3- Deck failure interrupt 
Exit s Main 

Registers of fixed store 30 
Instruction obeyed 76 
B registers 111-116, 123 

O 
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H411 : Prepare Next Tape Order 



O 



The prepare next tape order routine is either entered as a long 
interrupt from the first BA interrupt after initiating a tape order, or 
it is entered as an extension of the Tbasic order to tape queue routine, 
E421. Its purpose is to determine if the next tape order for the channel 
concerned can "be updated and then initiated without stopping the tape on 
completion of the current tape order. This can be done if the tape order 
does not involve a change of direction, nor is it a search, nor a rewind, 
nor an Orion tape order, nor a supervisor order. If none of these 
conditions apply then the order is moved into the FO position and the 
organise store subroutine, R414j if required, prepares the corresponding 
page of core store to accept the transfer. If the order is a composite 
order; that is, more than one block is involved, then only one part of it 
is moved to the FO position. When the next BA interrupt occurs, if the 
.organise store routine has prepared the corresponding page of core store 
and if the current tape order has been successfully completed, then the 
tape order in the FO location can be initiated by the BA interrupt routine 
without stopping the tape. 

Parts of this routine are common with routines H412 and E413 

Entry s E402 BA interrupt routine 

H42I Basic order to tape queue 

E412 Clear last tape order 

R413 Start tape routine 
Exit s E202 Main 

Subroutine Useds R214 Free program 

E414 Organise store blocks 
Registers of fixed stores 72 
B registers used 100-110, Bt 



O 
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E412 
54128 Clear last tape order 



The clear last routine is entered as a long interrupt from the 
BA interrupt routine after the completion of a read or \7rite order, if 
the next tape order has been initiated without stopping the tape. The 
purpose is to remove the lockout sxxd. lockdovm digits from the page 
involved during the previous tape transfer. 

Entrys R402 BA interrupt routine 

Exits E411 Prepare next tape order 

R202 Main 

Suhroutines Useds R205 unlock store block 

Registers of fixed store 14 

B registers used 100-110 



O 
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R413/1 
O Mil' start Tape Routine 

The staxt tape routine, R413» is a preselected routine entered either 
as a long interrupt from the tape stopped interrupt routine, E403, or as 
an extension of the placing of a tape extracode into the tapes queue routine, 
E421. There are three parts to this routines the clearing up of the previous 
tape order, the updating of the next tape order, and the initiation of a 
tape order hy writing to the TOR. 

The part concerned with the clearing up of the previous tape order 
begins by testing the ED sad if there are any errors recorded in it, the 
routine exits to R419. 

Next, the current order just completed is examined, and if it has not 
■been marked as having heen completed successfully, then it will he initiated 
again. 

If it has been marked as complete, and it was a read or write order, 
then the lockout and lockdown digits from the PAR of the pages involved in 
the transfer will he removed before prooeeding. Also, if the order ¥;as 
marked as a supervisor order, then subroutine R217 will be entered before 
proceeding to update the next tape order. 

The updating part of this routine begins by examining if there is a 
tape order waiting to be processed in the PO location. If there is, then 
(^ the order is either moved to the CU location and initiated, if the core 

store pages concerned are ready for the transfer, or the routine will exit 
to main control, and the order will be initiated when the store is ready. 

If there is no tape order waiting to be initiated,, the next order in 
the tape queue for the channel concerned is extracted and either moved to 
the K) location, if it is a read or write order, where it will wait until 
the corresponding pages of core store are prepared, or moved directly to 
the CU location, if it is a search or skip or rewind order, and initiated. 

If there are no further entries in the tape queue for the channel 
concerned, the routine exits to main control. 

If the tape queue should be marked as full, and the updated entry has 
left a space in the queue, then the tape queue full indication will be 
removed, and those programs which have been held up because of this will be 
freed. 

The initiating part of the routine v/rites the necessary digits to the 
TOR, corresponding to the CU, and then reads them back again to ensure that 
they have been written correctly, before starting the tape. Also on starting 
the tape, the clock reading is written to location F3. 



O 
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R413/2 
2413.2 continued 

Except in the case of search and rewind orders, all tape orders are 
initiated hy extracting the corresponding digits from the CU location and 
writing them directly to the TOR. 

In the case of a search order, the direction in which the tape has to 
move is determined from a comparison of the WBA with the EBA, and its initial 
speed of motion is determined from the distance between the OTA and the EBA. 
If this distance is greater than 200 blocks, the tape is started at fast 
speed, if not, it is started at normal speed. The length of time, which 
a tape is to remain on fast speed during a search is calculated, and stored 
to thG nearest second in counter CT, allowing one second for every 23 blocks 
beyond 200 blocks. 

In the case of a rewind order, the following digits are written 
directly to the TCRs end transfer, end read, normal read bias, fast speed, 
start, reverse, disengage. 



Entry s R403 Tape stopped interrupt 

R42I Basic instruction to tape queue 

Exits Main control 

Three times repeat monitor R419 

TCR read back incorrect before start, machine monitor 

Write permit not present on a write order, program 
monitor 

Subroutine Useds R217 Enter SBC 

R214 Free Program 

H205 Unlock store block 

R41I Prepare next tape order 
Registers of fixed store II8 
B register useds 100-110 
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E414s Organise store blocks for tape 



O 



Purpose s An SEE to call blocks to core store for transfers to or from 

magnetic tapes and to set the page address registers for a tape 
transfer. 

Register of fixed store ; 62 

Instructions obeyed ? Supervisor block s 33 + entry to (1/318) + entry to 

R312 
Program block s 45-56 + entry to (2/318) + entry to 

R312 

Multiple program blocks s Around n times one program block 

for n blocks 

Parameters used s (1) to (19) 



SER re-entry 

3ER base 

Following tape order (type spec) 

Following tape order (store spec) 

Deck directory 

Block location table 

Block directory 

Call to cores 

Call to cores 

Find directory entry 

Lose sector 

Set PAS 

Step directory reference 

Return address 



Cross references; 


(2) 


= (5/201) 


(3) 


= (7/201) 


(4) 


= (52/400) 


(5) 


= 0.4(52/400) 
= (53A0Q) 


(6) 


(7) 


= (35/203) 


(8) 


= (2/203) 


(9) 


= (1/318) 


(10) 


= (2/318) 


(11) 


= (36/314) 


(12) 


= (32/314) 


13) 


= (1/312) 


(14) 


= (1/218) 


(19) 


= (15/411) 



o 



Connections with other routines 

Entered at (1) from tape routine with B100 = channel no. (digits 5-3) 
rest zero 

Exit to (l9/414)with B100 = Channel no. 

Block (s) locked down in core store. Page address 

registers set for channel, forward or raver so, if 

tape stopped. 

Otherwise, digit 14 invert edo 

Page number of last block transferred in digits 

23-3 of (52/400), digits 2-0 unaltered 

Subroutines ! 

a) "Call to cores" (i) Entered at (1/3I8) if supervisor block with 

BI09 = block label (22-12) digits 23, 10, 9, = 1 

(look doY/n, operand, no timer) 
B110 = return address. 
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R4143 continued E414/2 

(ii) Entered at ( 2/31 8) if block of object 
program v/ith 

B108 = Directory location relative to start of program, 
p 12-2. Program number p20-14 
Digits 22,0 = 1 (lock down operand) 
Rest zero 

B110 = Return address 

Block location table = BD position relative to 

start of BD 

Exit to resume at re-entry address v/ith 3100 preserved if block 

on drum or drum queue full 
Exit to return address v/hen in core store with B109 = Page no., 

B1 00-1 04 preserved. 

b) Find directory entry: 

Entered at (36/314) with 

B102 = Prog. no. (20-14)? B.D. entry relative to 
program start (12-2) 

B110 = Return address 
Exit to return address with B107 = Program number (8-2) 

B108 = Directory entry relative to start of BD 

c) Lose sectors 

Entered at (32/314) v/ith 

B100 = sector number, digits 11-1 

B110 = return address 
Exit to return address with BI09, BIOI-IO4 unaltered 

d) Set page address registers 

Entered at (l/312) 7/ith 

B108 = Hew contents of PAR, digits 23-12 
BIO9 = Page no. digits 10-3 
' B110 = Return address 
Exit to return address with B109 unaltered 

e) Step directory references 

Entered at (1/218) to step back at 1.1 (1/218) to step 
forwards with B107 = Prog. no. (20-14) 

BD entry relative to start of program 

area (l2-2) 

Remainder irrelevant 
B110 = Return address 
Return via R203 with 

BIO8 = Prog. no. (20-14) 

BD entry of next block relative to 

start of program area (l2-2) 

p23 = 1 
Rest zero 
BIO5-IO9 altered. 



'\_) Temporary working space s B101 - B110, B^ 
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R414 ; continued R414/3 

Not ess 

1. On entry to this routine, the "following" entry in the tape 
queue for the channel holds either. 

"b (p22-12), rest zero if a supervisor block. Otherv/ise 
program no, (p21-15). Block directory location relative 
to start of area for program (p13-3)j ITo. of "blocks less 
1 (p2-0) (always zero for Atlas) p23 = 1. 

On exit the contents are changed to page numher (p23-3) , 
p2-0 unaltered. Xb other tape directory is altered by this 
routine. 

2. If the block is required for a read transfer from Atlas tape 
and is on the drum, it is "lost" before being called to core 
store, thus avoiding one drum transfer. This does not apply 
for an Orion transfer, which may not use the whole block. 

3. If the block is a supervisor block, the "dont change timer" 
digit is set in the Page Directory, irrespective of the block 
label. 

4. The P.A.R. are set as follows for channel n 

Atlas tape, forward, tape stopped s ^77nO fOrion *77n1 etc) 

" " " tape moving % *77n4 ( " *77n5 *77n6) 

" " bactovardjtape stopped s *77n7 ( " ^77n6 *77n5) 

" " " tape moving s *77n3 ( " *77n2 *77nl) 

P.A.R. contents are also set to these values. 

Digit 1 of the deck directory reads if the tape is stopped, 

1 if moving. 

5. The current SER base is set to 0.1 by this routine, and the 
re-entry address is altered. 
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R4l6s Metal Backing Routine 



v.. 



The metal backing routine is a long interrupt routine entered from 
the deck failui'e roufcino, E406, if the interrupt v/as caused by the tape 
stopping on the metal backing at the beginning or at the end of the tape. 

If the tape, -which has caused this interrupt is on channel 7 sxii is 
being addressed, then the routine exits to the addressing routine. 

If the tape is in the process of a search order, and this interrupt 
occurs, then the deck timer is set for two seconds, and the 2?outine exits 
to main. The tape will be restarted again moving in the opposite 
direction, froaone to tv/o seconds later, by the one second clock interrupt 
routine. The first expected BA interrupt will be preselected as a LBA. 

If neither of the above cases has caused this routine to be entered, 
then it is assumed that there has been a mechanism failure, and hence the 
routine will disengage the tape and inform the operator accordingly. 

Entry; Beck failure interrupt routine R406 

Exitss 1. Addressing routine 

2. Main control 

3. Mechanism failure 

Registers of store; 15 

B registers used; 100-102 



u 
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R419/1 

R419s Tape Error Repeat Routine 



V'Tienever i-'ic gi;arx tape routinej Ii^ri3? is entered, the SD of the 
channel oonce.v.i-j is exi'icined. If there are any errors or faults recorded 
in .it, control is transferred to the tape error repeat routine. This is 
c. ..t.ain si'.ire monitor routine,, It exa'ninGS che digits, which are set in 
the EDc one at a time, to identify the type of error or fault which has 
occured, and then either exits to a monitor routine, or initiates a procedure 
which will repeat the current order to sea if the error can he cleared. 

The deck faults which cause this routine to exit directly to the machine 
monitor R40O, include the foil owing s 

1. Write digit not reset in the TOR after a write transfer (F7) 

2. Read next BA not set at the first BA interrupt at the beginning 
of a read transfer, or not reset at the end of the transfer (f8) 

3. Failure to clear a tape error after several repeats of the 
current order (P9) . 

The program faults which cause this routine to exit directly to the 
program monitor include the follo¥/ings 

1 . Beginning of tape 

If the tape has been stopped because the program has referred 
to block 0, then this routine will space the tape forward to stop 
between the TBA of block. 0, and the LBA of block 1, before entering 
the program monitor. However, if the supervisor wishes to refer 
to block 0, it can do so by setting EBAi-1 at this tine. 

2. End of tape 

If the tape has been stopped because the program has referred 
to block 5jQ00 then this routine v/ill space the tape backwards to 
stop just before the LBA of block 5jOOO before entering the program 
monitor. However, if the GU is a search order, the routine will 
not enter the monitor, but instead the \VBA will be compared with 
the last EBA, to determine if the block is on the tape. If not ■ 
it indicates that it is a short tape. 



3. Thirteenth bit set in SBA 

This bit may have been set by the supervisor in order to 
stop the tape at the next LBA. In this case, the EBA will be 
made equal to the PBA, and the tape restarted. 
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^-J E41£s continued 

The deck errors which cause the curreht order to be repeated include 
the following, v/hich are tested in this sequences 

1 . LBA error 

2. TBA error 

3. Checksum failure 

4. Hot 512 words transferred 

5« Deck failure has occured and was reset Immediately 
6. Parity 6 

The repeat process is accomplished by altering the EBA so that the 
tape can be, realigned to stop just before the block where the error had 
occured, by the alignment of tape EBA routine, R404. The ED is cleared, 
and the tape restarted. Y/hen the tape has been realigned, the start 
tape routine, R413j will automatically re-initiate tho order. 

A three bit counter in the CU location determines how many times the 
CU has been repeated. Each time it is repeated, this counter is incremented. 
If it should reach a certain maximum, say "J ( It can be altered to any 
number up to 7)j then the routine exits to the machine monitor It400, to 
indicate that the error has not cleared itself. 

Deck errors which occur in block are not repeated, but instead the 
routine exits directly to the monitor. 

Other tape errors recorded in the ED, which cause this routine to exit to 
special routines, include the parity 3 error and the read and write crisis 
errors. 

Entrys E413 Start Tape 

Exits Machine monitor 

Program monitor 

Main control 
Registeisof stores 9^ 
B registers useds 100-105? 109 



o 



t/l0/63 



o 



3 



R421 
E4215 Basic Order to Tape Queue 

This routine finds the deck number, allooates and locks out 
the associated store "blocks if necessary, of a basic tape order and 
then places the oi-der in the tape queue linking it with the previous 
order for the same channel. If the tape queue should be full when the 
order is given, then the program affected will be halted. 

The basic order to tape queue routine is entered directly from the 
extracode vector of basic tape orders. There are nine of these orders; 
search, read forward Atlas tape, read forward Orion tape, read reverse 
Atlas tape, read reverse Orion tape, write Atlas tape, skip forwards, skip 
reverse, and rewind. These orders can be simple or composite. A simple 
order involves only one block from tape. A composite order involves up 
to eight blocks from tape. 

If the order should be a search, a test is made to check if the X'BA 
is on the tape. If not, the program is monitored. Also, if the tape is 
in variable length mode, the variable length operations are ended before 
starting the search. 

The order is then placed in the tape queue together ?7ith its block 
directory entry or WBA, according to the type of order involved, linked to 
the previous order for the same channel. 

The routine exits either to prepare next long interrupt, or to start 
tape long interrupt,, depending on whether the tape should be marked in the 
BD as in use or not, respectively. 

Entrys Transfer vector of basic tape extraoodes 

Exit! E4-ii Prepare next tape order 

R413 Start tape routine 

R213 Tape queue full 
Subroutine Used R221 Find deck number 

R203 Store location and lock out 
Register of fixed store 100 
B register used 100-110, Bt, 91, $2, $6, 97 
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■7) 



^5) 



R450 








(0) = 


*356o 






12.1, 


100, 


0, 


0.7(107) 


113, 


100, 


0, 


o„4<33) 


121, 


108, 


0, 


4<o) 


ICl, 


110, 


0, 


(5/203) 


113, 


110, 


0, 


l,4<37> 


121, 


126, 


0, 


(17/204) 


121, 


1.00, 


0, 


0,1 


113, 


100, 


0, 


(7/201 ) 


121, 


100, 


0, 


4(0) 


121, 


101, 


0, 


(33) 


113, 


101, 


0, 


5.4C9) 


131, 


126, 


0, 


2<62) 


*4556474i 


/ 


*4745oi44 


*4543530i 


/ 


*37 


121, 


109, 


0, 





121, 


100, 


0, 


0.2 


114, 


100, 


0, 


7(58/400) 


121, 


100, 


0, 


7 


121, 


110, 


0, 


(1/203) 


121, 


126, 


0, 


(1/216) 


121, 


109, 


0, 


64.3 


121, 


108, 


0, 





147, 


109, 


108, 


(9/204) 


113, 


109, 


108, 


(9/204) 


113, 


109, 


0, 


(6/203) 


121, 


100, 


0, 


(40/451) 


113, 


100, 


108, 


20(7/204) 


121, 


136, 


0, 


(1/303) 


121, 


100, 


0, 


3o7(6o) 


101, 


101, 


0, 


21*6003 


127, 


101, 


0, 


256 


214, 


126, 


101, 


5(0) 


121, 


100, 


0, 


6.4(60) 


101, 


101, 


0, 


15*6003 


127, 


101, 


0, 


1 


215, 


125, 


101, 


(24) 


121, 


ioi, 


0, 


3(0) 


113, 


101, 


0, 


5o4<9) 


121, 


126, 


0, 


3(63) 


121, 


100, 


0, 


*ocoo4 


113, 


100, 


0, 


15*6003 


121, 


109, 


0, 


0.7(25) 


121, 


126, 


0, 


1(23) 
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[Set link v;hen engaged 
[Set link 
[programmG Wo, 
[store program No, 
[Halt main program 

[Set current SER Base 

[Return from print routine 

[print 'engage deck 7* 

[engage d 
[eck 7 



[Set Deck Allocation Directory 

[immediate link to prog scan 
[wait for deck engaged 

[programme No, 



[Exit to program scan 

[Set to print 'modify deck' 

[pick up TACR 

[jump if deck not modified 
[set to print 'permit write' 
[pick up TCR 

[jump if writing permitted 

[print 

[Disengage deck 
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24) 



04) 



o 



:107) 



.:;8) 



39) 



121, 


109, 


0, 


- ♦35612001 


121, 


110, 


0, 


2(0) 


131, 


126, 


0, 


( 1/318) 


121, 


100, 


0, 


(1/202) 


113, 


100, 


0, 


5.4(9) 


131, 


100, 


0, 


(3) 


113, 


100, 


0, 


(103) 


121, 


100, 


0, 





211, 


126, 


100, 


(4) 


165, 


101, 


100, 


0.2 


215 » 


101, 


10,1. , 


-2 


122, 


101, 


0, 


50 


121, 


100, 


0, 





121, 


126, 


0, 


(100) 


121, 


104, 


0, 


3(0) 


131, 


109, 


0, 


*356l 


121, 


126, 


0| 


(1/339) 


lOi, 


100, 


0, 


7.4<34> 


214, 


126, 


100, 


(107) 


101, 


101, 


0, 


3(90) 


124, 


101, 


0, 


0,1 


131, 


106, 


0, 


2(0) 


131, 


126, 


0, 


3(73> 


113. 


103, 


0, 


2(60) 


121, 


100, 


0, 


4(0) 


113. 


loo. 


0, 


5.4(9) 


121, 


100, 


0, 


(60) 


121, 


126, 


0, 


3(62) 


101, 


100, 


0, 


21-6003 


127, 


100, 


0, 


356 


314, 


126, 


100, 


(27) 


121, 


100, 


0, 


3.5(60) 


121, 


101, 


0, 


3(0) 


113, 


101, 


0, 


5»4<9) 


121, 


126, 


0, 


2(62) 


121, 


100, 


0, 


^0000413 


113 » 


100, 


0, 


15*6003 


121, 


109, 


0, 


0,7(107) 


121, 


126, 


0, 


1(23) 


^514445^6 


/ 


*645i465i 


*45 620101 


/ 










/ 


*ol010101 







/ 





*00445i63 


/ 


'^55576556 


*640l64zj.l 


/ 


*6045 . 


121, 


loo, 


0, 


11,6(60) 


121, 


126, 


0, 


1(88) 


121, 


100, 


0, 


9.6(60) 


121, 


126, 


0, 


1,1(08) 



tijock down interrupt routinos 

[set return from print routine 

[set link to tape SER's 

[Enter addressing 

[Allow for block o 

[pick up modifier 
[Enter re-addressing 

[Remove lockdovm 

[jump if in fault mode 
[pick up last address 

[convert to decimal 



[print no. of blocks 
[pick up TACR 

[jump if deck not modified 



[print *un!aodify decls' 

[Disengage deck 

[wait for engage 

[identifi 
Ler 

[disraoun 
It tape 

[Monitor - 'short blocks' 

[Monitor -'too many faults' 
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C450/3 



o 
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o 



88) 121, 


loo, 


0, 


9c 6(60) 


121, 


101, 


0, 


*0052453 


210, 


101, 


136, 


*oooo452 


113, 


101, 


0, 


15*6003 


113, 


0, 


0, 


7.4(34> 


131, 


101, 


0, 


(84) 


113, 


101, 


0, 


5.4C9) 


121, 


126, 


0, 


2(62) 


4) 121, 


100, 


0, 





113, 


100, 


0, 


0.4(46) 


121, 


100, 


0, 


60 


113, 


loo, 


0, 


(00) 


121, 


100, 


0, 


(10) 


113, 


loo. 


0, 


(93) 


121, 


100, 


0, 


50 


113, 


loo, 


0, 


511.4(3) 


113, 


0, 


0, 


1.4(00) 


121, 


loo, 


0, 


2 


113, 


loo, 


0, 


15*6003 


121, 


101, 


0, 


0,1 


113, 


101, 


0, 


0.4(90) 


121, 


100, 


0, 


(70) 


113, 


loo, 


0, 


(91) 


121, 


loo, 


^, 


511.4(3) 


122, 


100, 


0, 


(99) 


113, 


loo, 


0, 


1(90) 


113, 


101, 


0, 


3*6 


131, 


loo, 


0, 


*00002625 


113, 


100, 


0, 


21*6003 


121, 


100, 


0, 


*oo26o54 


113, 


100, 


0, 


15*6003 


113, 


0, 


0, 


3*6 


121, 


loo. 


0, 


*0121004'^ 


52) 113, 


100, 




^J 


15.4(60)^ 


121, 


100, 


0, 


13.3(60) 


113, 


100, 


0, 


7=4(0) 


113, 


126, 


0, 


(5/201 ) 


121, 


101, 


0, 


(8) 


121, 


no. 


0, 


2(0) 


121, 


126, 


0, 


(1/220) 


113, 


126, 


0, 


(5/20I) 


121, 


108, 


0, 


0,1 


121, 


109, 


0, 





121, 


110, 


0, 


2(0) 


121, 


126, 


0, 


(i/240) 


113, 


126, 


0, 


(5/201) 


121, 


109, 


0, 


2.1 


121, 


no, 


0, 


2(0) 


>) 121, 


126, 


0, 


(3/240) 


121, 


101, 


0, 


(8) 


121, 


no, 


0, 


3(0) 


121, 


126, 


0, 


(3/230) 


113, 


126, 


0, 


(5/301 ) 


131, 


126, 


0, 


(1/203) 



[Monitor - *too raany faults'' 

CSet last v;ind disengage 

[change to disengage i± on leader 

[Set routine in 'fault mode* 



[print 

[store length for pass 1 

[start pass 1 

[set timer 
[set BA link 



[Reset write 

[Set W count 

[set end of tape link 



[Set error count 
[inhibit Interrupts 

[set TACR 

[start deck 
[permit interrupts 



[Reserve teleprinter 

[print text 

[New line 

[Free teleprinter 



[10,6=64 



o 



t45o/4 

LEHD OF PASS 1 

:;/o) 101, loo, 0, o„4(9o) 

101, 103, 0, 1(90) 
137, 100, o, -1' 
314, 126, 100, (71) 
165, 101, 10a, 0,4 
214, 126, 101, 4<o) 

122, 102, O, 0,4 [Adjust if- odd LB?;! at end 

113, 100, 102, (99) 
I21, 126, O, (71) 

114, 100, 102, (50) 
71) 121, 101, O, 13" 

102, 101, 102, (99) 
217, 126, 101, 5(0) 

120, 101, 0, 12 

124, 102, 0, 0,4 [SGt to erase last few feet 

114, 101, 102, (99) 

121, 126, o, (71) 

165, 103, 102, 0.4 

214, 126, 103, (72) 

121, 103, 0, 12 

120, 101, 0, o 

164, 103, 101, 1 
127, 101, 0, -2 
113, 101, 102, (99) 

122, 103, O, 0,4 

il3» 103, i02, (99) 

r^ 72) 113, 102, O, 1(Q0) 

^-^ 121, 100, 0, 0.4 

121, 103, 101, O 

101, 101, 100, 3(90) 

165, 104, 101, ^7/^17036 
163, 104, 0, o 

163, 104, 0, o I Time in 8- bit chs 

122, 101, 104, 

211, 126, 126, -1.7(0) 

203, 136, 100, -7(0) 

122, 103, icl, [Time elapsed in 8-bit 

165, 101, 103, *ooi403 

165, 104, 101, *ooo40i 

163, 104, O, 

163, 104, 0, O 

163, 104, O, ■ 

163, IC4, 104, 

122, 103, 101, 

164, 104, 103, *ooi77777 

165, 101, 104, *ooi774 
122, 104, 101, o 

163, 101, o, o [Time elapsed in sees 

163, 101, 0, ■ c 

I24, 104, 101, o 

124, 101, 101, 



vj 163, 



125, 104, O, 

104, 101, ifjax. no. of bm's 



[10.6.64 



[450/5 



o 



!^3) 



o 



7;0 



/4> 



lal, 


100, 


102, 


(99) 


123, 


loo J 


0, 


511 (3 > 


121, 


101, 


0, 





131, 


102, 


0, 





104, 


101, 


IOC, 


5li<.4<3> 


104, 


102, 


100, 


5ii(3> 


201, 


126, 


100, 


-3(0) 


124, 


102, 


101, 





163, 


101, 


0, 


26 


163, 


101, 


0, 





163, 


101, 


0, 





163, 


101, 


0, 





113, 


101, 


0, 


2(90 


163, 


102, 


0, 


25 


163, 


102, 


0, 





163, 


102, 


0, 





122, 


102, 


104, 





216, 


126, 


102, 


(09) 


121, 


100, 


0, 


(20) 


113, 


100, 


0, 


(02) 


131, 


loo, 


0, 


(76) 


113, 


100, 


0, 


(91) 


101 , 


100, 


0, 


1(90) 


127, 


loo, 


0, 


0.4 


215, 


100, 


loo, 


*777777 


124, 


100, 


0, 


*ooooo6 


113, 


100, 


0, 


21*6003 


121, 


100, 


0, 


*0012002 


113, 


loo, 


0, 


15*6003 


101, 


101, 


0, 


1.4(90) 


314, 


126, 


101, 


(75:^ 


121, 


106, 


0, 


(69) 


121, 


102, 


0, 


1 


121, 


103, 


0, 





121, 


104, 


0, 


0.1 


131, 


105, 


0, 


-oa 


102, 


101, 


102, 


(74) 


124, 


105, 


0, 


0,1 


216, 


126, 


101, 


-2(0) 


104, 


101, 


102, 


(74) 


125, 


103, 


105, 





315, 


104, 


105, 


3 


124, 


103, 


104, 





202, 


126, 


102, 


-8(0) 


121, 


105, 


101, 





211, 


126, 


126, 


-4.7(0) 


121, 


126, 


106, 





nlO 




/ 


nlCO 


nlOOO 




/ 






[store last address 



I jump if short blocks 



[start deck 

[no. of bad blocks 



[Binary to decimal 



O 



[10^6,64 



^450/6 



O 



69) 



/5) 



6) 



31) 



O 



/) 



o 



113. 


103, 


0, 


5(60) 


131, 


loo. 


0. 


4(0) 


113, 


ico, 


0, 


5-4(9> 


121, 


100, 


0, 


5(60) 


131, 


136, 


0, 


2(63) 


131, 


loo, 


0. 


(1/202) 


113, 


ioo| 


0, 


5.4(9) 


131, 


100, 


0, 


*0i320045 


121, 


136, 


0. 


(62) 


101, 


loo. 


0, 


Sllo4(3) 


104, 


100, 


0, 


511 (3> 


132, 


100, 


0. 


50 


215, 


126, 


loo. 


(4) 


131, 


101, 


0, 


40 


113, 


101, 


0, 


(90) 


113, 


0, 


0, 


3.4(90) 


131, 


103, 


0, 


(30) 


113, 


103, 


0, 


(92) 


131, 


101, 


0, 


50 


113. 


101, 


0, 


511.4(3) 


1^3 , 


0, 


0, 


1.4(90) 


113, 


0, 


0, 


0,4(90) 


131, 


loo. 


0, 


(.77y 


113, 


100, 


0, 


(91) 


131, 


loo, 


0, 


511.4(3) 


123, 


loo, 


0, 


(99) 


113. 


loo. 


0, 


1(90) 


131, 


loo, 


0, 


o„l 


113. 


loo, 


0, 


3*6 


131, 


loo. 


0, 


*00002535 


113, 


100, 


0, 


31*6003 


131, 


100, 


0, 


*oo36oo4 


113. 


loo, 


0, 


15*6003 


113. 


0, 


0, 


3*6 


121, 


100, 


0, 


^01330045 


131, 


136, 


0, 


(62) 


101, 


100, 


0, 


2.4(90) 


123, 


ioo, 


0, 


0.1 


101, 


101, 


0, 


(92) 


210, 


136, 


101, 


(79) 


io6. 


100, 


0, 


2(go) 


215. 


126, 


loo, 


(79) 


131, 


100, 


0, 


511.4(3) 


123, 


100, 


0, 


(99) 


101, 


101, 


0, 


1(90) 


101, 


102, 


0, 


0,4(90) 


214, 


126, 


102, 


8(0) 


165, 


103, 


101, 


0.4 


214, 


126, 


103, 


5(0) 


122, 


101, 


0, 


0,4 


113, 


101, 


0, 


1(90) 


113, 


102, 


101, 


(99) 



[print n faults 



[Efro OP PASS 2 



[Return to pass 1 if mi missed 

[Set timer 
[set EBA = o 

[Set BA link 



[Set m count 

[Set ena of tape link 

[Set error count 

[inhibit interrupts 

[set TAca 

[start deck 
[permit interrupts 

[END OF PASS 3 

[jump if last interrupt not TBA 
[jump if EBA out of step 



[10.6,6^]. 



[4SO/7 



o 



n> 



O 



So) 



O 



lai. 


126, 


0, 


2(0) 


lU, 


102, 


ioi. 


<99> 


loi, 


102, 


0. 


lo4(90) 


110, 


log. 


0. 


2(90) 


126, 


101, 


100, 





33.5, 


1265 


10;!., 


C/S) 


121, 


100, 


0, 


(40) 


113, 


Ico, 


0, 


(92) 


131, 


100, 


0, 


5ii.4<i) 


133, 


100, 


0, 


(83) 


113 » 


loo, 


0, 


1(90) 


121, 


loo. 


0, 


(80) 


113, 


100, 


0, 


(91) 


121, 


100, 


0, 


^00000525 


lis, 


loo, 


0, 


21*6003 


121, 


100, 


0, 


*0012012 


ii3. 


100, 


0, 


15*6003 


121, 


loo. 


0, 


=5=01240045 


121, 


126, 


0, 


(62) 


121, 


100, 


0, 


2048*4 


lis, 


100, 


0, 


(92) 


121, 


100, 


0, 


(4) 


113, 


100, 


0, 


(gi) 


121, 


100, 


0, 


*ooooo525 


113, 


100, 


0, 


2l'!^6oo3 


121, 


100, 


0, 


*0052012 


il3, 


100, 


0, 


15*6003 


121, 


loo. 


0, 


*oi25ooA5 


121, 


126, 


0, 


(62) 


101, 


100, 


0, 


2,4(90) 


215, 


136, 


loo, 


(81) 


101 , 


loo, 


0, 


(92) 


12.6, 


loo. 


0, 


(40) 


215, 


126, 


100, 


(31) 


101, 


100, 


0, 


21*6003 


127, 


100, 


0, 


0„2 


215, 


126, 


100, 


(81) 


101, 


100, 


0, 


1(90) 


122, 


100, 


0, 


511.4(1) 


124, 


100, 


0, 


<83> 


214, 


126, 


loo, 


(84) 


123, 


ioi, 


100, 





163, 


101, 


0, 





1%, 


101, 


0, 





110, 


101, 


0, 


2(90) 


124, 


loo. 


0, 


0.4 


113, 


101, 


0, 


1,4(90) 


121, 


101, 


100, 





121, 


102, 


loo. 


511.4(1) 


122, 


102, 


0, 


(83) 


101, 


103, 


102, 


(99) 


113, 


103, 


i02, 


(33) 


124, 


102, 


0, 


o„4 


200, 


126, 


iOl, 


-3(0) 


^.^tA y 


101, 


0, 


-50 



[Adjust last address 
[jump if errors in pass 3 



[start deck 



[Fast rewind 

[END OF PASS 4 

[Return to pass 3 if EBA jt O 

[Return to pass 3 if expecting LBA 

[Ret^!m to pass 3 if addr fault set 

[E^lt if no errors 

[Adjujit last address 
[store bad block count 



[copy list 



[10^6064 



[450/8 



;!.oo) 



O 



8a) 



o 



iol) 



113, 


loi, 


0, 


o„4(ioi) 


lai, 


101, 


0, 


5ll(3> 


123, 


101, 


0, 


(99) 


121, 


103, 


o» 


"n26 


113, 


102, 


100, 


511(1) 


121, 


103. 


0. 


*4 


101, 


102, 


100, 


511a4<l) 


122, 


102, 


0, 


0„1 


102, 


102, 


100, 


511(1) 


124, 


103, 


0, 


2 


214, 


126, 


102, 


10(0) 


125, 


102, 


o» 





163, 


102, 


0, 





163, 


102, 


0, 





113, 


102, 


101, 


0,4(99) 


203, 


126, 


101, 


2(0) 


121, 


126, 


0, 


(63) 


217, 


126, 


103. 


2(0) 


113 » 


103. 


101, 


2(99) 


121, 


103, 


0, 





200, 


126, 


100, 


(82) 


124, 


103, 


0, 


2 


113, 


103 » 


101, 


1(99) 


1?7i, 


101, 


0, 


0,4 


113 r 


101, 


0, 


l(oo) 


113, 


0, 


10a, 


(99) 


122, 


101, 


0, 


511(3) 


124, 


101, 


o» 


(99) 


121, 


100, 


0, 


"50 


104, 


100, 


lol, 


511*4(3) 


200, 


126, 


101, 


-1(0) 


113, 


100, 


0, 


o„4(90) 


121, 


loo. 


0, 


(50) 


113, 


loo, 


0, 


(93) 


121, 


loo, 


0, 


(79) 


113, 


loo, 


0, 


(91) 


121, 


100, 


0, 


*ooooo525 


113, 


100, 


0, 


21*6003 


121, 


100, 


0, 


*0026052 


113, 


100, 


0, 


15*6003 


121, 


100, 


0, 


*oi26oo45 


121, 


126, 


0, 


(62) 



[jump if two consecutive errors 



[jvsap if too many faults 



[set count for search 



[start deck 



O 



[10.6,64 



r.450/9 



o 



5o) 



O 



*565737oi 


/ 


*5746o.i.43 


r.wo, of b (60) 


*54574353 


/ 


"-^soi^Goi 


[locks - 


*i4i4i4i4 


/ 


*oo655635 


[???? uran 2o5(60) 


*57445Ho 


/ 


*7ioi433o 


Codify ch 


*41565645 


/ 


*540i37oo 


[armel 7 


*14141414 


/ 


*ol464i65 


[???? fau 5<6o) 


*546463o6 


/ 


*6o456355 


[Its peim 6o4(6o) 


*5i640i67 


/ 


*625i6/}45 


[it write 


*ol5756ci 


/ 


*43304i36 


[on Chan 


*5645540l 


/ 


*?,7oo6457 


[nel 7 to 9o6(6o) 


*57oi55Ai 


/ 


*567loi46 


[0 many f 


*4i555464 


/ 


*63oo635o 


Eaults sh llo6<6o) 


*57655640i 


/ 


*42545743 


[ort bloc 


*5363O04i 


/ 


*44446245 


[ks addre l3o3<60) 


*63635156 


/ 


*47oi36oi 


[ssing - 


* 6041 63 63 


/ 


*oii40045 


[pass ? e 15,7(60) 


*62625762 


/ 


*ol5i56oi 


[rror in 


*444i644i 


/ 


*oooooooo 


[data 


(03) 


= 


(0) 




<o) 


= 


*356i 





2»7(6o) 



O 



[10,6.64 



UfjO/iO 



O 






;',o6) 



10) 



o 



'jO) 



11) 



O 



121, 

121, 
31.3, 

121, 

lis, 

121, 
121, 

121, 
121, 

(91) 

101, 
203, 
121, 

lis, 
121, 

113, 
121, 

113, 
101, 
113, 
121, 
121, 
113, 

113, 
121, 





o 
o 

101, 
101, 

li3, 

101, 

165, 

101, 
215, 
124, 
loi, 
126, 

315, 
210, 

165, 

2i5, 



126, 
102 s 
102, 
109, 
109, 
109, 
126, 
109, 
126, 



111, 

111, 
111, 
ill, 
111, 
111, 
111, 
111, 
111, 
125, 
112, 
112, 
111, 
123, 

/ 
/ 
/ 
/ 



111 
112 
112 

112 
113 

114 
125 
111 
113 

113 
125 

125 

113 

125 



o, 

o. 
o, 
o, 

o, 

0, 
0, 

o, 



0, 

111, 

0, 

o, 

o, 

o, 

o, 

0, 

o, 
o, 
o, 

0, 

o, 
o. 



o 
o 



o 
o, 

0, 
0, 
0, 
112, 

o, 

113, 

o, 

0, 

o, 

113, 
111, 

112, 
lie 



<93) 

-0^4(0) 

4,4(1/416) 
(3) 

(102) 

4(0) 
(5/201) 

3oO 

(1/313) 

(o) 

-4(0) 

-lo4(o) 

(90) 

10(0) 

(il) 

(92) 

*ooooi03 

21*6003 

n8i9i 

7*6003 

(6/239) 

3(90) 

2048*4 

*00002 
21*6003 

(90) 
2048*4 



0.4(90) 
(6/229) 

3<.4C90> 
21*6003 

*001 

1(90) 

(13 > 
1 

7-^^6003 

n8l9l 

(12) 

3<o) 

0c2 
(14) 



[pass 1 

[Entry for BA intsrmpt 



[Initial entry 
[End of tape entry 
[Reconnect to tape estracodes 

[set re-entry 

[wait for 1 second 
[Link to addressing SER 
[V/ait for 1 second 



[LAI TJJffiR 

[Set BA linlc 

[permit count, do not write I's 

[Address tape 

[set FBAR 7 

[Note starting time 



[Set LAI 
[store count 



[Timer / BM count 

[Error count /No, of bad blocks 

[Last address / EBA 

[Startirxg time / finishing time 

[BA IMERRUPT 



[select BiP.! absent indicator 

[Modifier 

[jUiTip if BPd absent 

[Add 1 to BM count 



[jump if address ^ 8I9I 
[jump if LBA 

[jmp if ADDEESS FAULT 



[10. 6, 64 



[450/11 



o 



3) 



3) 



4) 



o 



3) 



16s, 


113, 


112, 


*0003 




215, 


125, 


113, 


2(12) 


[jxjmp if m absent 


sio, 


123, 


111, 


<13) 


[Jump if LBA 


165, 


115, 


114, 


0.4 




214, 


125, 


115, 


5(14> 


[jump if sv/itch set 


114, 


111, 


114, 


(99) 


[Add mi count to list 


131, 


111, 


0, 





[Reset BM count 


126, 


111, 


0, 


0.1 


[change BA indicator 


113, 


111, 


0, 


0.4(90) 


[store BM count 


210, 


125, 


ill, 


2048*4 


[jump if TBA 


121, 


111, 


0, 


*oooooo4 




113, 


111, 


0, 


21*6003 


[write l°s 


121, 


125, 


0, 


2048*4 




121, 


113, 


0, 


nSigi 




113, 


113, 


0, 


7*6003 




211, 


125, 


111, 


(14) 


[jump if TBA 


121, 


113, 


0, 


0.2 




113, 


113, 


0, 


21*6003 


[set Address Fault 


121, 


125, 


0, 


(13> 




121, 


113, 


0, 


0,1 




113, 


113, 


0, 


21*6003 


[Reset Address Fault 


114, 


113, 


0, 


1.4(90) 


[Add 1 to bad block count 


165, 


115, 


114, 


0.4 




214, 


125, 


115. 


-2(13) 


[jump if switch set 


202, 


125, 


114, 


2(0) 




121, 


125, 


0, 


(98) 


[jurap if too many faults 


113, 


114, 


0, 


1(90) 




113, 


111, 


114, 


(99) 


[BM count to list 


121, 


125, 


0, 


-1(13> 




210, 


125, 


111, 


3(12) 


[jump if LBA 


121, 


113, 


0, 


0,1 




114, 


113, 


0, 


lu4(90> 


[Add 1 to bad block count 


121, 


125, 


0, 


3(12) 


[PASS 2 


101, 


111, 


0, 


1(90) 


[BA INTERRUPT 


101, 


112, 


111, 


(99) 




203, 


125, 


112, 


8(0) 


[jump if no change to Write Ref 


124, 


111, 


0, 


0.4 




113, 


111, 


0, 


1(90) 




165, 


113, 


111, 


0,4 




121, 


114, 


0, 


*G00002 




215, 


114, 


113, 


*000001 




113, 


114, 


0, 


21*6003 


[set write Ref, 


121, 


125, 


0, 


1(20) 




113, 


112, 


111, 


(99) 




121, 


125, 


0, 


2048*4 





o 



[io<,6,64 



C45o/ii'' 



O 



30) 



'-U^ 

»_**•• 



O 



i^) 






B) 



o 



101 , 


111, 


0, 


(90) 


zos, 


125. 


111, 


8(0) 


121, 


Ill, 


0. 


(3^y 


113, 


111, 


0. 


<92) 


121, 


111, 


0, 


*0000101 


113, 


ill. 


0, 


21*6003 


121, 


111, 


0, 


nSiSg 


113, 


ill, 


0, 


7*6003 


121, 


125, 


Op 


2048*4 


121, 


112, 


0, 


*00O02 


113, 


112, 


0, 


21*6003 


113, 


ill. 


0, 


(90) 


121, 


125, 


0, 


2048*4 


101, 


111, 


0, 


Oo4<90) 


101, 


112, 


0, 


21*6003 


165, 


113, 


112, 


*001 


215, 


125, 


113. 


(3s) 


124, 


111, 


0, 


1 


101, 


113. 


o» 


2,4(90) 


121, 


114, 


113, 


-nSOOO 


214, 


113, 


114, 


nSigo 


214, 


113, 


113, 


nSlSg 


124, 


114, 


0, 


115000 


102, 


114, 


0, 


2(90) 


214, 


113, 


114, 


118191 


102, 


113, 


o» 


7*6003 


215, 


113, 


113, 


0,3 


113, 


111, 


0, 


0.4(90) 


113, 


0, 


0, 


7*6003 


124, 


113, 


0, 


0.4 


113, 


113, 


0, 


21*6003 


121, 


ill, 


0, 


o„l(33) 


113, 


111, 


0, 


(92) 


121, 


125, 


0, 


2048*4 


101, 


111, 


0, 


0=4(90) 


101, 


112, 


0, 


31*6003 


163, 


113, 


112, 


*00l 


101, 


114, 


0, 


1(90) 


131, 


116, 


0, 


*0000lCll 


215, 


125, 


313, 


(36) 


124, 


111, 


0, 


1 


101, 


113, 


0, 


7*6003 


215, 


125, 


113, 


<34) 


165, 


113, 


112, 


0,2 


215, 


125, 


113, 


<34> 


165, 


115, 


114, 


Oo4 


214, 


125, 


113, 


4<34> 


114, 


111, 


114, 


(99) 


113, 


0, 


0, 


o„4<90) 


121, 


125, 


0, 


3(36) 



[pass 3 

[lAI TirffiR 

[permit Cotmt, Address Tape 
[Set up LBA for Block 



[Set LAI 
[store count 

[LBA IirriSHRUPT 

[Select im absent indicator 
[Jump if BM absent 
[Add 1 to BM count 



[WBA = 8190 if EBA = 5000 
[V/BA = 8I89 if EBA = O 



[y/BA = 8I9I if EBA = Last 

[set Addr, Fault if addr v/rong 

[Set TBA 

[Reset Addrebs Tape 

[Sot TBA linlt 

[TBA IFrERRUPT 

[Select BM absent indicator 

[Modifier 

[pemit count, ADDR, TAPE 

[jiiaip if BM absent 

[Add 1 to BJl count 

[joup if address v/rong 

[jump if Address Fault 

[jurcp if switch set 
[Add BM count to list 
[Reset BM count 



[io„6.64 



H5o/i?j 



o 



34> 



36) 



o 



tO) 



.a) 



o 



121, 


■ii5, 


0, 


0,1 


114, 


113. 


0, 


lo4<90) 


165, 


iiS. 


114, 


Oo4 


314, 


las. 


115, 


<35) 


202, 


i«5. 


114, 


2(0) 


121, 


■m, 


0, 


(98) 


113, 


114, 


0, 


1(90) 


113, 


111, 


114, 


(99) 


121, 


125, 


0, 


i<35) 


124, 


116, 


0, 


0,1 


121, 


111, 


0, 


0,1 


114, 


111, 


0, 


i,4<90) 


ii-3. 


116, 


0, 


31*6003 


101, 


111, 


0, 


2.4(90) 


124, 


ill, 


0, 


0.1 


121, 


112, 


111, 


-115000 


113, 


111, 


0, 


2.4(90) 


214, 


111, 


112, 


118190 


124, 


112, 


0, 


115000 


103, 


112, 


0, 


2(90) 


2I4, 


111, 


112, 


nSlQl 


113 » 


111, 


0, 


7*6003 


121, 


111, 


0, 


<3l> 


113. 


111, 


0, 


(93) 


121, 


125, 


0, 


3048*4 


101, 


111, 


0, 


21*6003 


127, 


111, 


0, 


0<,3 


214, 


135, 


111, 


3<o) 


121, 


111, 


0, 


(81) 


113, 


111, 


0, 


(9!) 


121, 


ill. 


0, 


0,3 


113, 


111, 


0, 


31*6003 


121, 


111, 


0, 


*00000S3 


1^3, 


111, 


0, 


15*6003 


101, 


111, 


0, 


■7*6003 


315, 


111, 


111, 


0,1 


134, 


111, 


0, 


(41) 


113, 


111, 


0, 


(92) 


121, 


111, 


0, 


Ool 


110, 


ill, 


0, 


2.4(90) 


121, 


125, 


0, 


204.8*4 


101, 


111, 


0, 


3.4(90) 


121, 


113, 


ill. 


"n5000 


210, 


135, 


125, 


8(0) 


121, 


113, 


111, 





214, 


111, 


ill, 


118189 


106, 


113, 


0, 


3(90) 


314 » 


111, 


113, 


nSigo 


214, 


111, 


113, 


110191 


106, 


111, 


0, 


7*6003 


214, 


135, 


ill, 


6(0) 



[Add 1 to bad block count 
[jump If switch set 

[jump if too many faults 

[BM coiint to list 

[set Address Fault 

[Add 1 to bad block coimt 

[set TACR 

[Add 1 to EBA 

[ViTDA = 8I9O if EBA = 50OO 



[if last add3?ess, change to OI9I 
[set LBA 



[pass 4 

[TDA im-ERRUPT 

[Set to re-enter pass 3 if 
[Address Fault set 

[set Address Fault 

[set V/rite, End Transfer 

[set link odd if error 

ESet IJ3A link 

[subtract 1 from EBA 

[l,BA IHTERRUPT 

[jump if error in TBA 

[EBA 

[WBA = 8I89 if EBA = O 

[WBA = 8I90 if EBA = 5OOQ 
hlDA - 3191 if EBA = Last 

[j'jiap if no error in block 



[10,6.64 



o 



o 



o 



101, 


111, 


0, 


1(90) 


124, 


112. 


0, 


n5000 


113, 


112, 


111, 


(99) 


202, 


0, 


111, 





113, 


111, 


0, 


1(90) 


121, 


111, 


0, 


(40) 


113, 


111, 


0, 


(92) 


121, 


123, 


0, 


2048*4 


50) 101 , 


111, 


0, 


0,4(90) 


122, 


111, 


0, 


1 


113, 


111, 


0, 


0,4(90) 


215, 


125, 


111, 


2048*4 


121, 


111, 


0, 


*0001 


113. 


111, 


0, 


15*6003 


121, 


111, 


0, 


(5i> 


113, 


111, 


0, 


(92) 


121, 


125, 


0, 


2048*4 


51) 121, 


112, 


0, 


(78) 


121, 


125, 


0, 


(3/201 ) 


qS) 121, 


111, 


0, 


*0001 


113. 


111, 


0, 


45*6003 


121, 


111, 


0, 


(52) 


113, 


111, 


0, 


(92) 


121, 


125, 


0, 


2040*4 


^2) 121, 


112, 


0, 


(88) 


121, 


125, 


0, 


(3/201) 


46) 121, 


111, 


0, 





202, 


125, 


111, 


6(0) 


121, 


111, 




*0001 


113 -" 


111, 


0, 


15*6003 


121, 


111, 


0, 


5(0) 


113. 


111, 


0, 


(92) 


121, 


125, 


0, 


2048*4 


113; 


111, 


0, 


0,4(46) 


121, 


125, 


0, 


2048*4 


121, 


112, 


0, 


(70) 


121, 


125, 


0, 


(3/201) 


42) 217, 


125; 


113, 


2048*4 


214, 


125, 


112, 


2048*4 


121, 


111, 


0, 


*OOOl 


113; 


111; 


0, 


15*6003 


121, 


111, 


0, 


3<o) 


113, 


111; 


0, 


(92). 


121 ; 


135. 


0, 


2048*4 


121, 


112, 


0, 


(^77^ 


121, 


125, 


0, 


(3/201) 



C450/14 

[Error -> list 

[store bad addresses in list 

Eset TBA liiTk 

[pass 6 

[da ikterrupt 

[Test for end of search 
[stop deck 



[End of Search 
[Sv/itch to E 

[miscslmkeous ba ioterrupts 

[fault stop - passes 1 AND 3 
[stop deck 



[switch to E 

[ SHORT TAPE STOP " PASS 1 

[jump if not specified length 

[stop deck 

[set link for stop interrupt 



[switch to E 

[short tape stop - PASS 3 

[junip if not last block 

[stop deck 

[set link for stop interioipt 

[Sv/itch to E 



(99) 



(0) 



w 



[10.6.64 



[451/1 



o 



i) 



Z) 



o 



o 



R451 








(0) = ^ 


"0001 






121, 


1, 


127, 





1132, 


0, 


0, 


'-9(14> 


121, 


2, 


0, 


(83/450) 


122, 


3, 


0, 


511.4(1/450) 


121, 


3. 


0, 


-0,1 


121, 




c, 


0, 





1054. 


5, 


0, 


(18) 


101, 


6, 


5. 


<3) 


121, 


7. 


5, 


0.1 


127, 


7, 


0, 


0,3 


214, 


127, 


7. 


4(0) 


125, 


6, 


0, 





122, 


7. 


0, 


0.1 


315, 


127, 


7, 


-2(0) 


127, 


6, 


0, 


7.4 


314, 


127, 


6, 


(16) 


124, 


6, 


8, 


-0,4 


101, 


127, 


6, 


(4) 


*ooo404 




/ 


*1014202 







/ 





*24242424 


/ 

/ 


*24242424 


*2424 




/ 










/ 










/ 










/ 










/ 


3 


1(2) 




/ 


(5> 


(16) 




/ 


1(2) 


(6) 




/ 


(16) 


1(2) 




/ 


(16) 


(2) 




/ 


1(2) 


(16) 




/ 


1(2) 


(7> 




/ 


(8) 


(16) 




/ 


(16) 


(9) 




/ 


(16) 


(16) 




/ 


(16) 


(16) 




/ 


(iG) 


(16) 




/ 


(10) 


(11) 




/ 


(16) 


2(6) 




/ 


(16) 


(16) 




/ 


1(2) 


(7) 




/ 


(12) 


(16) 




/ 


(16) 


(16) 




/ 


(16) 


(16) 




/ 


(13) 


(11) 




/ 


(16) 


(15 > 




/ 


(16) 


(16) 




/ 


1(2) 



[IMIN PROGRAlffilE BLOCK 



[Entry (1) addr: 0.1(1) readdr 
[Set trap 

[Set modifier for input data 
[Set for decimal conversion 
[set for phase 1 
[Read next character 



[Look up character in directory 
[of pennissible characters 

[Monitor if illegal character 
[Select operation 
[Enter routine 

[Directory of permissible characters 



[Phase 1 

[phase 2 

[phase 3 

[phase 4 

[phase 5 

[phase 6 
[Phase 7 

[phase 8 



[10.6064 



C45i/2 



O 



o 



o 



5) 


121, 


8, 


0, 


3 


[set for phase 2 




121, 


127, 


Op 


1(2) 




5) 


121, 


4. 


5. 


"2 


[1st digit -> accumulator 




121, 


9, 


0, 


7 


[set digit count 




121, 


8, 


0^ 


6 


Eset for phaae 3 




121, 


127, 


0, 


1<2) 




/) 


"3, 


4. 


2, 


5iio4(i> 


[store accumulator 




200, 


127, 


2, 


2(0) 


[increase modifier 




121, 


127, 


0, 


(17) 


[Monitor if store full 




121, 


3, 


0, 





[set for octal conversion 




121, 


i27, 


0, 


(2) 


[Go to phase 1 


8) 


121, 


8, 


0, 


9 


Eset for phase 4 




121, 


127, 


0, 


1(2) 




J> 


124, 


4, 


4, 





[Form 2a 




121, 


10, 


4, 





[store 2a 




124, 


4> 


4, 





[Form 4a 




124, 


4. 


4, 





ll'orm 8a 




127, 


10, 


3, 





[Delete 2a if octal conversion 




124, 


4, 


10, 





[complete multiplication by radi 




124, 


4. 


5, 


-2 


[Add in next digit 




203, 


i27, 


9, 


1(2) 


[jump if less than 8 digits read 


'^5) 


121, 


8, 


0, 


i5 


[set for phase 6 




121, 


127, 


0, 


1(2) 




^.0) 


121, 


0, 


0, 


12 


[Set for phase 5 




121, 


127, 


0, 


1(2) 




11) 


ii3. 


4, 


2, 


511.4(1) 


[store acciaaulator 




200, 


127, 


2, 


2(0) 


[increase modifier 




121, 


127, 


0, 


(17) 


[Monitor if store full 




121, 


3. 


0, 





[set for octal conversion 




121, 


127, 


0, 


(5) 


[Go to phase 2 


i2) 


121, 


8, 


0, 


16 


[set for phase 7 




121, 


127, 


0, 


1(2) 




'3) 


121, 


8, 


0, 


19 


[set for phase 8 




121, 


127, 


0, 


1(2) 




-4) 


(19> 




/ 





[Trap vector 


-6) 


121, 


97, 


0, 


0,1 






121, 


91, 


0, 


3(0) 


[Monitor ~ error in data 




ii57. 


0, 


0, 


1(1/247) 


[switch to E 




1117, 


0, 


0, 





[End programme 




121, 


100, 


0, 


15 07(60/450) 






121, 


126, 


0, 


(31) 


[print 


^7) 


121, 


97, 


0, 


0.1 






121, 


91, 


0, 


3(0) 


[Tvionitor - too many faults 




my. 


0, 


0, 


1(1/247) 


[Switch to E 




1117, 


0, 


0, 





[End programme 




121, 


100, 


0, 


9.6(60/450) 






121, 


126, 


0, 


(31 > 


[print 


i8) 


122, 


8, 


0, 


0,2 


[End of recoi'd 




217, 


127, 


8, 


(2) 


[ignore if phases 1 or 2 




121, 


127, 


0, 


(7) 





[10,6064 



C451/3 



.IQ) 



o 



flo) 



o 



il) 



o 



1132, 


0, 


0, 


*4 


113, 


1, 


0, 


(22) 


13:3, 


3, 


0, 


(83/450) 


124, 


2, 


0, 


509.4(1/450) 


131, 


3, 


2, 




211, 


127, 


1, 


2(0) 


123, 


3, 


2, 


0.4 


216, 


127, 


3. 


(16) 


211, 


127, 


1, 


(26) 


121, 


3, 


3, 





121, 


4» 


2, 





121, 


5, 


4, 





121, 


4, 


0, 





121, 


6, 


3. 


0,1 


202, 


127, 


5, 


4(0) 


202, 


127, 


4, 


-4(0) 


113, 


2, 


0, 


0„4(33) 


121, 


137, 


0, 


(31) 


101, 



0, 


6, 


1(50) 


121, 


7, 








102, 


7, 


6, 


l.4(50> 


217, 


127, 


7, 


7(0) 


214, 


127, 


7, 


7(0) 


113, 


8, 


6, 


1,4(50) 


122, 



0, 


7, 





121, 


4. 


3, 


0.4 


113, 


8, 


6, 


1(50) 


122, 


4, 


6, 


-0,1 


202, 


127, 


6, 


(20) 


121, 


7, 


8, 


*6 


214, 


127, 


7, 


-2(0) 


121, 


8, 


0, 


*2 


113, 


n 
0, 


6, 


1.4(50) 


123, 


2, 


0, 


0.4 


121, 


4» 


3, 


0,4 


123, 


4» 


6, 


"0.1 


202, 


127, 


6, 


(30) 


101, 


3, 


0, 


(5o> 


102, 


3, 


2, 


1,4(50) 


217, 


127, 


3, 


(16) 


121, 


97. 


0, 


0,1 


131, 


91, 


0, 


(41 ) 


1157, 


0, 


0, 


1(1/347) 


101, 


3, 


0, 


i.4(50> 


2;«4, 


137, 


3, 


(26) 


1002, 


7> 


0, 


=^0002 


121, 


3, 


0, 


0,4 


101, 


4» 


3, 


0,4(50) 


106, 


4. 


3, 


1*0002 


215, 


127, 


4, 


(16) 


202, 


127, 


3, 


-3(0) 


124, 


1, 


0, 


0.2 



[Trap for end of input 

[Set routine in 'no fault' mode 

[no. of items -4 

[jump if addressing 

[Monitor if wrong no. of items 

[jump if addressing 

[no. of items -1 

[Set scan upper limit 

[set No, of itcsas to bo scanned 

[clear interchange marker 

[Set modifier 

[Scan list 

[count through scans 

[store No, of items in list 

[Exit from sort 

[pick up element AIs -1 

[copy 

[subtract element Ak 

[jump if Ak ~1 < Ak 

[jump if Ak -1 = Ak 

[Replace Ak hy Ak-l 



[Replace Ak-1 by Ali 
[set interchange marker 
[cycle scan 

[jump if Ak-1 is a dummy 

[Replace Ak by dummy 
[Reduce No, itCTis counter 

[set interchange marker 
[scan cycle 



[Monitor if last fault out of range 



[Sv/itch to S 

[jump if Block O in error list 
[Read next block 



[Monitor if identifier incorrect 
[Mark Bl if Bloclc read 



[10.6.64 



1454/4 



.•6) 



o 



34) 



o 



H) 



o 



113, 
113, 

121, 
121, 

1157, 
101, 

214, 

111, 

121, 

121, 

2l6, 

124, 

124, 

113, 
1121, 

113, 

1120, 

113, 
121, 

113 » 
121, 

113 » 

121, 

113, 

1004, 

113, 

113, 

122, 

1004, 

202, 

1017, 

121, 

121, 

1137, 
1117, 

121, 
121, 
121, 
121, 
121, 
121, 
121, 
125, 
121, 
163, 
163, 
163, 

125, 
164, 
121, 
211, 
203, 



i. 


0, 


(32) 


3, 


0, 


5.4(23) 


97, 


0, 


o„l 


91, 


0, 


(23) 


0, 


0, 


1(1/247) 


3, 


0, 


(22) 


127, 


2, 


(24) 


127, 


0, 


*0002 


8, 


0, 





9, 


8, 


-n5000 


8, 


9, 


n5000 


8, 








8, 


n 
0, 


-0,4 


8, 


0, 


0,4*0002 


2, 


0, 





3, 


0, 


1*0002 


3, 


0, 





3, 


0, 


lo 4*0002 


4» 


0, 


^45703663 


4, 


0, 


2*0002 


4, 


0, 


*7i636445 


4, 


0, 


2^4*0002 


4» 


0, 


*55 


4, 


0, 


3*0002 


7, 


0, 


*0002 


2, 


0, 


1.4(24) 


3, 


0, 


2.4(24) 


8, 


0, 


0.4 


7. 


0, 


*ooo7 


127, 


8, 


-1(0) 


7, 


0, 





97, 


0, 


0.1 


91, 


0, 


3<o) 


0, 


0, 


1(1/247) 


0, 


0, 





100, 


0, 





101, 


0, 





107. 


0, 


1 


105, 


0, 





106, 


0, 


1 


102, 


0, 


1 


103, 


0, 





100, 


0, 





104, 


100, 





100, 


0, 





loo, 


0, 





100, 


0, 





103, 


0, 


2 


103, 


100, 


0.7 


100, 


104, 





126, 


126, 


-2,7(0) 


126, 


102, 


-9<o) 



[switch to E 

[jump if program monitored 

[set upper limit of 5COO blocks 

[set NO. of blocks 
[Set date 
[Set time 



[set name = EX - SYSTEM 
[write Block o 
[Dump date 
[Dump time 
[set count 

[clear tape 
[Free tape 



[End of programme 



[convert from octal to 6 - bit 



[10.6.64 
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O 



o 



113, 


103, 


105, 


1,4(28/450) 


124, 


105, 


0, 


0.4 


203, 


126 J 


io6, 


-14(0) 


124, 


105, 


0, 


0.4 


121, 


100, 


101, 





2C3, 


126, 


107, 


-18(0) 


121, 


100, 


0, 


(28/450) 


■Jl) 121, 


101, 


0, 


(1/202) 


113, 


101, 


0, 


5.4(9/450) 


121, 


126, 


0, 


2(62/450) 


32) 




/ 





:i3) 121, 


101, 


0, 


2048*4 


121, 


102, 


0, 


2048*4 


101, 


100, 


0, 


(22) 


113, 


100, 


0, 


7.4(24/450) 


210, 


126, 


100, 


10(0) 


121, 


103, 


0, 


■ 


124, 


103, 


0, 


2 


214, 


126, 


103. 


7<o) 


101, 


102, 


0, 


(50) 


124, 


102, 


102, 





124, 


102, 


102, 





113. 


102, 


0, 


0.4(4/450) 


121, 


101, 


0, 


(46/450) 


121, 


102, 


0, 


(48/450) 


113, 


101, 


0, 


2,4(13/450) 


113, 


102, 


0, 


15,4(36/450) 


all, 


126, 


100, 


(33> 


101, 


101, 


0, 


0.4(22) 


121, 


103, 


0, 


0.4 


101, 


102, 


101, 


1,4(50) 


113, 


102, 


103, 


511(1/450) 


122, 


103, 


0, 


0,4 


202, 


126, 


101, 


-3<o) 


113. 


c. 


0, 


1,4(90/450) 


121, 


lol, 


103, 


-1 


163, 


101, 


0, 





163, 


101, 


0, 





104, 


101, 


0, 


(50) 


113. 


101, 


0, 


2(90/450) 


113. 


103, 


0, 


12.4(24/450) 


121, 


108, 


0, 


(25/^50) 


121, 


126, 


0, 


3(17/450) 


;3> 121, 


100, 


0, 


0,7(25/450) 


121, 


126, 


0, 


1(17/450) 



[Set return from print routine 
[print identifiers 



[pick up Jvrap address for pass 1 
[pick up .lump address for pass 3 

[store key 

[jump if re-addressing 



[jump if length not specified 



[store length for pass 1 

[pick up jwiip address for pass 1 

[pick up jump address for pass 3 

[set jump in pass 1 

[Set jxmp in pass 3 

[jvrnip if addressing 

[Set counter 



[Move error list into correct 
[position for end of pass 4 

[inhibit fault printout after pass 6 
[pick up Ho. of faults 



[Adjust last address 
[store last address 
[store modifier 
[Set link 



O 
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«9) 



io) 



113, 


0, 


0, 


7(58/400) 


[Remove deck from Supervisor 


121, 


100, 


0? 


*00004J,2 




113, 


100, 


0, 


15*6003 


[Disengage deck 


121, 


iooj 


0, 


*ooooo533 




113, 


100, 


0, 


21*6003 


[Reset TACR 


131, 


100, 


0, 


4,1(28/450) 




121, 


126, 


0, 


<3l) 


[instruct operator 


101, 


100, 


0, 


2(90/450) 




113, 


100, 


0, 


0,4(34) 




101, 


100, 


0, 


7,4(24/450) 




113. 


100, 


0, 


(22) 




214, 


126, 


100, 


(29) 




131, 


126, 


0, 


(1/202) 




113, 


126, 


0, 


7.4<34/45o) 




121, 


126, 


0, 


(17/450) 
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TAPE ADDRESSING AND RE-ADDRESSING ROOTirffi R45O AND P45I 



o 



(1/450) 
(8/450) 

(93/450) 
(50/451) 

(102/450) 

(1/201) 

(3/201) 

(5/201 ) 

(1/202) 

(5/203) 

(17/204) 

(9/214) 

(I/216) 

(1/220) 

(2/220) 

(6/229) 

( 1/240) 

(3/240) 

(I/3I8) 

(I/329) 

(58/400) 

(54/400) 

(1/416) 

(7/201) 

(1/213) 

( 1/247) 
(4/203) 
(6/303) 
(7/204) 
(9/204) 



(17/450) 




0.4 




(3/450) 




*4321 (83/450) 




7(54/400) 




9*4007 


lExtracode entry 


19*4007 


iTape interrupt entrj' 


395*7 


1 Current SER entry 


50*4007 


IPrograiu Scan entry 


948.4*7 


1 Current Program No, 


213*4007 


inalt Main Program 


184*40074 


iFree Main prograni 


200*4002 




230*4 


1 Reserve Operator's Output 


233.1*4 


iFree Operator's Output 


941.4*7 


iMain Clock 


925719 




925744 




96*40044 


Icall to Cores entry 


208*4 


1 Remove Lock Down 


312.4*7 




296.4*7 




026006 




399*7 


1 current SER Base 


134*40074 




235*4001 




953*7 




369*7 




379-7 




949*7 





o 
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TAPE ADDRESSING AOT) RE-ADDRESSING 



O 



O 



*- — -- 

0^5) 

End I Pass 
of I 4 

•■>■ 



?0)-" (kV710)-C-- (17) 



.L 



'^■'-- - —V 



CnX-" (TACRsAP) (21) 

(list. mPTY? >--—>; UNLOCK 



No 



.^- 



ADJUST LAST 
' ADDRESS 



iCOPt LIST 



(22) 



(23) 



(20) 



'Iffl!ERRUPT! 

taTiiiJS -■ 

^/. ^ ,..,_. 

j PROG. iYe^ DECK \Nq_ 

IMONITOBED?!""' '^JtlODIPIED/ ' 

No ! Yes 

!SETj>=(22)] 

.1 \/ _ -. 

BET IffiSSAGEi 



(5) 



V 



'NQ OP 



jDlSMGAGE' 



DECK 



:TRANSLilTE LIST j T.jnnrrci, 

; INTO PDRM i ^-^^C?S> 

I SUITABLE FOR i X;\ 

I P/iSS 2 ^-^^ 



SET I/ESSAGE, 
j 'TMvIODIPY i 
1 DECK', „.; 

-.-.- ^. _ . . 

iSET> =(23 )i 



(3) 



r; — ' (LIST FUII.?)----...^,^QQ j^^^ .--X18) ^ ^-^ ^J 

/rrA No „.,_rnc, , End I Pass 

;SET_SCi _v^ 

_i ^OHECK CORRECT^ 

.SETc^X^XllJi I NO. OP |No 

' 3^ "" i INTERRUPTS IIJ i 

SET S"^ 1 9); \ _ , _E4SS_ 2 / 

, i 3k:-ZZ".l: ., Yesj, 

i SET T ACR =PC,WRMj , SET" "MESSAGE, (17)^SET : 

iW1's,AT,AP, M 'ADDRESSING -X3) 't^^O; 

!TCR =NS,P,S,NR, I I PASS 6' I " " "^. 

I "" ;set''eba=p^ 

ir.., , 

iSET^>:«('X6); 
rsET%c=0; 

VL _-,.., 

iSET/- =(J: 4), 

.s|£eci 

-- sk- 



X^^D 



,_^NBAjET 



'SET TACR = LA.I , PC ,V/RM,W. 1 . ' s , AT jAP, 
: £CR_S-.NS^S^Jff^_. 



3SSAGE 'iVDDRESSING: 
_ PASS 5 j 

V 

(3) 



o 



R450~P45l R450, 451/1 

Addrossin R and Readdressing Routine for Atlas I Magnet ic Tap e 

Purpose 

To test and addi-ess ina.gnetic tape in accordance with the format laid 
out in the Atlas I General Description and to remove , from existing 
addressed tapes ^ any blocks found to be faulty. 

Method of Usee 

1» Addressings- 
Punch a steering tape as follovrss- 

JOB 

laS ~ ADDRESS T/J?E 

COMPILER TAD 

A 
n 



Where n is the maximum number of blocks to be marked out (in decimal) , 
If n is not piinched the tape will be addressed from end to end. 

2. Readdressing. 

Punch a steering tape as followsj- 

JOB 

VAS - : iDDRESS TAPE 

CQifflLSR TAD 

R 
a 
b 
c 

d. 

% 

ViJliere a = no. of blocks (in decimal) ) 

b = identifier (1st half) ) attainable from the log 

c = identifier (2nd Half) ) of addressed tapes 

o' K = Faulty block addresses (inoctal) 

r^ N,B. Spaces may be used to teixxlnate any of the elements in the data, 

^-^ but other deviation from tliis format will cause the programme to 
monitor. 



O 



o 



o 



o 
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3. For bo til axidressing and readdressings 

Moimt the magnetic tape on deck 7 l^ut do not engage iint-.l instructed 
to do so hy the operator's teleprinter. Feed in the steer tape 
on any tape reader. 

When the routine has "been entered,, the message 'EIGAG-E DECK 7' 
v/ill he printed^ Engaging the deck Virill cause the program to 
start and instructions and comments will be printed from time to 
time, 

N.B, The commands 'MODIFY CHAimEL 7', 'TOMODIFY CIMMEL 7<, and 'PEHIvIIT 
ITOITE ON CHAMI^IEL 7' a^^e accompanied by the deck being disengaged. Obey 
the command and then re-*enggge the deck* 



R450,45.l/3 



O 



O 



TAPE ABSaSSSING AM) -REAJSEESSING 
DESCRIPTION 



Summary 

A Si.ipervisor routine v/hich -will address tapes or remove from 
previously addressed tapes any iDlocks v^hose addresses are specified hj 
a steering tape. Deck time is approximately 7 minso per 1000 blocks. 

Method 

The process is broken up into passes as follo¥/s3- 

Pass_l ! - 

I 20 ftc length of clear tape is run out to serve as a leader. 
This is followed by marked out blocks containing 8I9I in the 
leading and trailing addresses and "all l/s" in the region where 
information can be written. During this pass, a block is deemed 
faulty if} 

1« A Eefei-ence Mark cannot be v?ritteno 
2b a Block Me.rk can not be v/ritten^ 
5, Either address reed. bei,ck is not 81 91 

4o All 1's caimot be "written in the information area. Since 
addresses are not v/ritten sequentially in this pass, the fault list 
is compiled as a set of strings, consecutive entries in the list 
referring to good and faulty regions of tape, respectively. 
Each entry in the list is the count of the number of good block 
/~N marks in the correspsnding region. 

Pass 2; - 

The last 6 blocks are regarded as faulty to serve as a trailer 
and, by reference to the list prepared dirring pass 1, the 
Reference Majrks associated vfith the faulty blocks are erased. 

Pass 3s- 

Using the Reference Marks which are left after pass 2, blocks 
are rewritten w ith sequential addresses from onvirards (excer)t 
that 0,5000 and the last block are addressed 'as 8189, 8I90, and 
81 91 respectively) o The information area ir erased and no clock 
pujises are written, Snigs ar e written in the interblock gap 
and a block is deemed fa-.ilty if s 
"i J A block mark cannot be T/ritten 
2o The leading address is read back incorrectly , 
3o The trailing address is not read back as zero. 
The presence of faults reverts the programme to a previou^s pass. 

Pass 4«- 

Checks in reverse that the addresses a,re correct and that there 
is at least one snig in each inter-block gap. 

P ass 5'- 

Rewind connecting pass 3 to pass 1 . 



Pass 6: 



Search routine to enter pass 2 from pass 4. 



H450,451/i- 



O 



iifter the successful "completion of pass 4j Block is -viTittenj the tape 
name being EX-SYSTE^Io The deck is then unmodified ^ and a hlock of 
f loa.ting point zeros is VvTitten from Block 1 to Block 4999 Q-i^" '^^-^ pen-^ 
uJ.timate hlook, which ever is the earlier* The tape is then rewound and 
named PREHe, These tvro passes ar-e not given a nujaber iTithin the tape 
addr e s s j.ng pr o c e n s p 



O 



O 
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TkVE AJDRESSIUG MU) REiaDRSSSITO 
M ODES OF BEHii''/IOUR 

The Programme ends under the following fault conditions s- 

OPERATOR'S OUTFim' Reason 

Error in data Illegal character, wrong no, of entries, in- 
correct identifiers or othe.rviise inconsistent 
data on the steering tape. 

Short blocks. Average block lengitili during pass 1 nominally 

less than 7o5 inches. 

Too many faults. Insufficient working space to accommodate 

entries from data tape or from fault checking 
routines o Y/orking space is adequate for at 
least 190 faulty blocks at any stage in the 
process, (During passes 1 and 5, due to the 
Stringing System 'a specific number of blocks 
cannot be quotedo Here the number of strings 
can be 277,) 

2, POSSIBLE P ATHS TH ROnGH THE EOTJTIITE 

Normallyj the process goes through passes 152,5, and 4 in that 
{^ order. Reasons for reversion to previous passes are given belov/:- 

TRAJ-T SFER SS-^ON 

2-*> 1 No, of BM's read in pass 2 differs from the 

numbei- classed as written during pass 1* 

5-^2 Faulty blocks written during pass 3, 

3-^ 5-> 1 ITo» of RJvI's read in pass 5 differs from the 

number expected to remain after erasing in 
pass 2^ 

4"> 5 Noo of BM's read in pass 4 differs from the 

number classed as v/ritten in pass 5 or snig 
missing from interblock gapo 

4-> 6 -> 2 Address errors detected in pass 4, 
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^PE AD DRESS lire AFD RE AJDRESSIgG. 
GLOSSMY OE TEHIvB 



* 

■■3<, 



o 



AF 
AT 
BA 
BEG 

m 

BMC 

DD 

EBA 

EC 

EENEA 

ET 

P 

FS 

LA,I 

EBA. 

HR 

NS 

PBi'iR 

PC 

R 

EM 

S 

sc 
t 

T 

0?AC 

TACR 

TBA 

TCR 

W 

\«ffiA 

Wl's 

imi 

SlIIG 



2048*4 - Exit to Sort Interrupts. 

Link obeyed on a Block Address Interrupt 

Link obeyed on End of tape. 

Link to return from R216 when Deck 7 is engaged 

Link obejred after Operator's Output 

Link from 1 sec, SER 

Address Fault, 

Address Tape 

Block Address 

Bad Block Count. 

Block Mark 

Block Mark Count. 

Disengage Deck, 

Expected Block Address 

Error Count 
End Read at Next Block Address 

End Transfer 

Forwards 

Fast Speed 

If Deck modified and AT reset, causes BA interrupt 

after 40 insec. 

Leading Block Address 

Normal Read 

Normal Speed 

Present Block Address Register 

Permit Count 

Reverse 

Reference Mark 

Start 

Search Coimt 

Timing count for leader in passes 1 and 3 

Time in seconds hetvreen 1st and last BM's during 

pass 1 . 

Tape Addressing Commaoad, 

Tape Addressing Command Register 

Trailing Block Address 

T5) e Command Register 

TiTrite 

Wanted Block Address 

ViTrite I's 

Yfrite Reference Mark« 

A "return to zero" pulse in the clock track recorded 
after the end of the information stripes because 
there are an odd number of these in the complete 
blocka 



O 
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TAPE ADDRESSING Alff) RE-ilDDRESSING 



Mill i!ROGEi\Ifflffi AKD MONITOR ROUTINES 



O 



O 



EtWER ON 

miN 

CONTROL 
xli__„ 



vYes 



X. 



SET trap! Trap /'AC C EPTABLE\Xe g^iOJDRESS llG?> 

FOR END I .'iNO. OP 1 "T" _ 

OP INPUT i \. ITEI.B? / -Sm^'MEL ■; .''LARGESlV^ 



/ 



READ ONE 
CHARilGTER 
_ 1054 



•,L No 

0) 



IN ilSCEND- 
ETG ORDER 
AND REJECT 
DUPLICATIONS: 



ENTEl' 
SUP. 

/ . ?247 

..ADDRESS/ ^ 



I ADDRESS Ai 
j I LAST 



/BL0CK'O\Yes x 1 
■^i IN LIST ' 



(CMR O.K. ?)-^°>jEWER 'sUF 
' """ ' R247 



I Yes 



E 



JGOJIPILEi 
I LIST 



^iiJ'f 



JEND E RO'gTI 



AYAILilBLE\ 
TORE? ) 

'Fno 

k 

jENT'ER SUP! E J SET IffiSSAGE, 

'TOO MANY i 

FAULTS • i 



I SET IIESSAGE^ 

'ERROR IN ! 

I DATA' I 



_ / AYAI 
YesV ST 



M. 



^ SET ^ = LINK I 
■ TO PROG. SCAN! 



J247_ 



N 



Sic 

(3) 

••"TlESSR^ 

j TELEPRINTER 
i R220 



'END HIOG.I 



•i/ 



PRINT' TECTi 



R240 



iPRINT NL I 
JR2^ J 



-.Ad. ._. 

FREE j 

TEmPRINTER 1 
R220 i 



fe 



SET PROG. 
NOT 



pUiiD IJEKT i 
•BLOCK 10021 



V.'' 



iMONITpRED,/ CHECK \.y 

^■4)HpROG.^204l •3-^^^- 

_4' (SET ]?R6G.i 

i NOT ',.:_. 

,1/ iMONITORED^^ 

SET miSSA^ fer SUP^^ 



SET >i=(7 



'ENGAGE 
DECK 7' 



fe./ 



Y. 



'^^^^•^ImS^y 



No 



m. 



J^. 

(cpuiwK 

FREE "TAPE! 
1017 ' 

iEiWER sup; 
(11>I__R247 

__m' 

Iekd hTog.i 



set up ; 

block i 

iNAME = 1 
llX-SYSTm' 

('"""Mite" 

I NEXT 

; BLOCK 1004' 
}s^~count"=^ 

I NO. op I 

available I 

BLOCKS .,..' 



5C 



M WRITE HEXTj 
BLOCK 1004i 



E 



o 



U450,45l/e 



>l< 




FREE. 


MBTJ 


PEOG. 


AEB 


mTER 
E AT 





A. 



TRANSFER! 
MONITOR 
INFO. 



(7) 



i 



r 



jPROG. SCMJ I^ONITORED 
~TYe3 



SD/ 



No 



-bt 



PROG. 
SCAN 



SET TO 

RETURN 

ATJf 

WHEN 

DECK 

engaged] 

R216 ! 



I 



o 



REiirovE 

DECK FROM 
. SUPERVI SOR 

Na . 

jDISENGAGEl 

1 DECK__ J 
.'ii 



Ipeog. 
'scan 



SET MESSAGE 

'DISMOUNT 

TAPE' 



#) 



J^c 



( ADDRE SSING?) -— ■ 
Yes '■ 



^ 



j ,■ LENGTH \ 
\ SPECIFIED?/- 



%i 



Yes 

it/. 

MODIFY 
PASSES 

1 & 5 

INTERRUPT 
ROUTINES 
FOR SHORT 

TAPE 

I ■"■■■ 
I 

\' _v 

(A DDRESSIN G?) 



-1 



MODIFY 
PASSES 

1 & 5 

INTERRUPT! 
ROUTINES 
FOR LONG 
TAPE 



Yes 



No 



'^ 



}iL 



ALIGN 'ERROR 
LIST FOR 
ENTRY TO 
PASS 6 



INHIBIT 

FAULT 

PRINT AFTER 

PASS 6 & 
SET UP lAST 
ADDR. MODIFIER 
ETC. 



Si. 



-^M=.@.i~<i 
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O 



^ 

-L 



SET 

IffiSSAGE 

'MODIFY 

DECK"? 



DECK 
, MODIF IED 
Yesj 



]-So 



SET IIESSAGE 
'PERMIT 
WRITE ON 

CHAMEL 7' 



L 



.'■ WRITING ^\No 
I PERICLTTED?) 



Yes 



j_ 



lock down; 
inteeeupt! 

ROUTINES i 



\/ 



SET X = 

LINK TO 

PROG. SCAN 



@ 



jDISENGAGE 
L.JECK..,,, 

■<' 
(7) 



SET 



= ®: 



(33 



ISET 4^ := (^ "f )i 

(aS&sing?) ^^>|^^^ f ^I 



Yes 



I SET -5 



® 



(iV) 



CONVERT 
DATE AJTD j 
TII/E lOTO' 
OCTAL j 



SET 1,5ESSAGE i 
' IDENTIFIER' i 






SET 



= LINK 
TO PROG.SCMJ 

r < 



(3) 



ENTRY FROM TAPS EXTRACODES 
ON END OF TAPE 

ENTRY FROM TAPE EXTRACODE 
RODTIME 

l- 
(12) 



RESET r- i 
|& RECONNECT! 
j ■^< LINK i 



!SET'>L 



01)1 



j^c_ 



SET'H = /< 

.RETURN t6~ -f^'"" 

I -^ ON NEXT 
j 1 SEC R21 5 



(y) 



O 



o 



TAPE APDEESSIWG AITO RE-ADDRESSING 
'mn OF TAPE' ROUTIlffiS 
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o 



C/?"^) 



start 



Pass 1 



SET 



60! 



r " SET ■ .. . 



V 



SET _ 
ITCR = W 

— -r~~ 

.__!_... 

j MC = I 

i 



j SET 

^ ~v 

!SET EC i 



I 



INHIBITS i 
iINTERRUPTSJ 



-^Z. 



End IPass 
of \ 1 

5^1 

TERMINATE; 
LIST AND ■' 
ALLOT FORi 
_OBP BJL i 



iMARK UST 

6 BLOCKS 

iAS F AULTY 



CALCULATE 
Tlliffi TAKEN 
! T . SECS 

..-.__Jz 

iCALCULilTE ; 

iLAST /VDDRESS ; 
: ALLOWING FOR ' 
i ERASURE OF i 
i FAULTY b locks] 

■•No."0P~Srr5^, >y 
\ l12T_ / — ^ 



Cl"5) 



set MESSAGE ' TOO 
! LIANY FAULTS' 



1 , 



SET TACR = LAI 
PC, WRlif, VM's 
AT, AP 

TOR = NS,fi; S, 
NR, E RNEA, W 



SET >- = (.K5);v--(i4) 



SET IvIESSAGE I ,SET TOR = FS,1 /Tg> 

J^SHORT_ BMCKS • '-N_Rj^S i^^^^ 

:SET PRO'G . " MONITORED I 



'SET 



i 

=(21)1 



SET TACR=PC, 



j PEEJ/IIT 
JiNTERRUPTS 

■ — -■♦— — .■^■ — .. 

I 
M . 



1 



i WRM, 

!TCR:=R, S,ET 



■-r" 
^ 



4^ 



SET MESSAGE 

'.'iDDRESSING 

PASS 1' 



I SET MESSAGE! 
' 'N FAULT S' i 



® 



JW--- 



ISET 



M 



SET MESSAGE 
'•ilDDRESSIN'tG PASS 2'i 



(3) 



NdL 



(I) 



iSET b = "link W PROG.j 
!___ SCAN i 

i 

■1/ 



(D 



o 



o 
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End 
of 



Q:4) 

Eass 
3 



(19) 



;• EBA-'tlLilST^ 
; ADDRESS /' 



j 

TERPicmTEj 
I LIST I 



^ 



i_SET^'='(*); 

:sET,,]=(:^ i)i 



(list "mpty?)^°— '(14) 

Yes'T 



I TCR = FS,R,S , ER]rofl,ET I 



iSET(X=(.'-XlO)i 



SET5=(4^5); 



1 

i' 



jSET TACR = PCjWRlCjYn'SjATjAF 
I TCR = FS,R,S,ERNM,ET 



SET IvESSAGE 

'ADDRESSING 

PASS 5' 



(5) 



O 
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TAPE ADDRESSING AIO RE-ADDRESS IITG 
m nJTEHRUPO? EOUTIKES 



O 



o 



(«J) 



lAI Pass 
Timer 1 



(£iO)^-- 



-Ji. 



jSETrx=G;^2)| 



^ t' =■ t>-ii 



jSET TACRj 
! = MI I 



BA i Pass 
Int ■ 1 

jWDTEi 
jTIMEl 



SET TACiT^"^,] 

Y/.1's, AT j 

PBAR =8191 ^ 



-iL 



NOTE STARTING I 
1 TniE I 



« 



(*) 



l'D»ff^Yes^^^^-^No_,^^ 



V_BM?.J 
No! 

I 



BBC+T] 



Yes' 



:BMC» = BMC+i: 



' — ■ 



( PBAH;81^ 1 )- 
Yes 1 Yes" 



No ^iSET PBARj 
•^! = 8191 I 



(m?) <iA?)X^l:-.p^^ ^^1 



i No I 'No' 

I (TACRjiiP) — ^^sSETjWiCRJ 

! ^."1 ' ' » A£_ I 

' -XDWY E^)-^w ['^Ic''" = 

No 41' ' !^^^ 
Yes,Jl^?) lio,gTRi^, ^ 



= AP 



/STRING \ 
lOHANGEp? ■ 

m I 

' LIST 1^ 



Yes 



Ai. 



'.CHANGED?. 

Yes! 
YiilST" \Yes v|Slf*fCH| 
\Fniii<?r L-.==-.SJ?0P! 

Noj. " 

JLIST! 



'MCJ=Q.V 



SET,:=f^' 

t 

I 

v 

® 



JstoreI 



{■■■ 



-; BID r- 



Yes 



^-- ^ '\ TAPE?,' 



iSET TACRj 
;= ¥/.1«s ! 







'END f 
\ REilCHED'?) 
No . 



es ;SET"TCR' !"SET ^. \ 
"-^ = STOPi ^ =( ■'.■3)' 



MI ! Pass 
Timer 1^ 5 

(t7o)E;>!ti^t-:i: 







y„ 



iSET ;<.=Gx2)| :SET i 
. j^^^^j 

jSET TACR' = 1 ■—¥"'■ 



PC, AT, 



:PBAR = 81^1 (*) 

(I) 
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O 



TAI^ ADDRESS ING AM) RE~iO)DKESS ING 
BA IHTERRUPT ROUTINES 



o 



(cZ'S) 



Short 
Tape 



Stop - 
Pass 1 



jEUTER SUP! 
J R201 ! 

i 

@ 

Fault! Pass 1 
Stop ! or 3 



LBA. I Pass 
IHT I 3 

(DUlIiy'M?)-'^-^ 
Ho T 



(as) 

TEA I Pass 
lUT ! 3 



» = BMG+li 



Jii 



IF EM^OOO;SET"llA==819di 



1 " - , " 
! " =UST, " 
iOTflERYflSE . " 



'iPC^jAF^ 



;]3BC' = iSET TACR 



si/ / 



EMTER SUP i 
R201 f 



A■D^.^..^■5■P' 



(\m:|B]ffi)"-;i3ET TACR i<- 
=' r i = AF ! 



(15) 



■SET TACR - 
! AT 
PBAR = 



■\"' 




— Xbm'coumt) 



( V 9) 



I CEM GE WRM 
! IN..TACR,i 

J PICK "uFIeS 

1 BM COUNT i 



Short 
Tape 



Pass 



El-JTER sup; 
!_ R201 j 



,jSET TAC_=j 
!PC,,AT,AF 1 

No i 

, ■1- ,,^^, _, ,^^, 

6189! iM-'=BMC+1-i ^_^\4 ^ 
=81911: X 

»EEA , . . ^ , 

-i: ,= ^L 

.CR:AP) — ->1BBC»=BB0+1 | 

/ "'7- "' ' 

/"ErtoG -.Yes r '■STRING' \ 

V CHANGED ? k . V<^A1GP»? ■' 
No;" No \ Yes I Yes 

:BMC ± > LJST i -"( LIST" PULL?)- (24 ) | 

-.- ■ ^° J' ' """ i. 

i BMC ' = OK' ^ MC- >LISTJ ] 



,EBA' ='EBA+iVv 



— /r~ 



I 



■ IF EBA =5000, SET ?/BA = 8190 
; " =LAST, " = 8191 
! OTHEBY gSE _ " .,°LBA_^.., 



1 SET PBAR 
i WBA 



SETX=(X7)i 

i^ORTtNo 

!TAPE?i 

Yesj; ^ . 

iJEAsMST [-■->(*) 

^z 



-^ 



i SET TCR: 
: = STOP ■ 



O 



ISET::>.=(X9) 



E450,451/14 



O 



TAPE ADDRESSING MP RE-AIDRESSIITG 
BA INTERRUPT ROUTINES 



o 



TEA PASS 



INT 



4 



BA j PASS 
DJT 6 



A^.. 



4t-- 



i SET -^ i-'s(TACR:ilP) ISC = SC-1| 

\-(rD\ ""If ' ; — ' 



SET TACR = i 

AP j 

TCR_ = ¥,Et I 

SET =(Dci2) 
(ODD IFimR 



Vl 

JEBA'^EBA -i"; 



(sc50')-^-;(*) 



SET WGR'i 
=. STOP, 



(CA.12) 



LBA 
INT 



PASS 
4 



TSET WBA =1 
! EBA ! 



stopTpass 
i 6 



ENTER SUP 
i R201 



(cj^OTD?)-^- >--.64 

No j 

i 
N.- ., , . 



IP EBA=0,SET Y/BA=8189 
" =5000 " =8190 
" =LAST " «6191 



iSETo<:=('xi5)j 



c-'i 



b 



I) 



.V 



y_. 



y / r , 

(EBAR.:WBAX-C-...i\raA LISTJ 






. yt' 

iSET 



<^k-~^ 



k 



O 



o 



TAPE ADDHESSING MID EE-ADDPJBSSING 

BA niTEHIlUI^T'EOUTBJIiS 



O 




SET TACE = 

AP 
TCE = W^ET 



.n1/_ 



SETcK =^12) 

(ODD IF' mm 



su. 



IEBA'=EBA--1 



© 




\j/ 



SETK =(213) 

© 



@) 



LRA 
INT 



PASS 
4 



/ 



SET WBA 
= EBA 



I. 



_3'/ Yes 
tXODD?) 



±^ 



X 



"7" 



No 



IP EB/i= 5 SET \YBA=8189 
" .-=5000, " =8190 
" =LAST " =8191 



j:^/ 



JX13J 

stop! pass 

6 



EJITER SUP 
B2Q1 



^AlirYJM^ 



SETCX-(;xl0)j 
© 



Ad 



M 



V/BA "> j 
LIST 
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E48o/l 
E480« Tape engage and disengage 



Purpose ; A main store SER to analyse decks detected "by the One Second 
routine as having the engage status changed, A suitable SER 
is entered to the tape SER queue to deal with each deck calling 
for action. 

Registers of main store s 26 

Instructions obeyed ; 3 + 6lM-(8 to 23 per deck requiring attention) where 

I) - no. of decks 

Parameters used ; (l) to (16) 

Gross references ; 

(5) = (8/230) Tape for action 

(6) = (3/221) lumber of decks 



(7) = (1/202) Program scan 

(8) » (68/400) Record of engage tapes 

(9) = (5/221^ Deck allocation directory 
(iO) = (1/217) Tape exit to supervisor 

(11) = (2/206> Enter SER to queue 

(12) = (5/214; Base of SER queues 

(13) = (3/213) Halt positions in SER queues 

(14) =0.4(53/421) Expected Block Address 

(15) = (1/482) Entry to read title 

Connections with other routines ; 

Entered at (1) via co-ordinator from entry in SER queue 

planted by the one second routine. B registers 
irrelevant. 

Exit; to program scan (l/202) with action record (8/230) 
zero. The routine is never halted once entered. 

Subroutines ; 

a) "Enter SER to queue" 

Entered at (2/206) with 

B107 = 1.0 

BIO8 = Deck number( digits 7-3) 

BI09 = Entry to new SER (1/482) 

B110 = Return address 

BI26 = odd 

Return with B101 , IO8 unaltered 

b) "Tape exit to Supervisor control" 

Entered at (I/217) with 

BIO9 = Deck number (digits 7-3) 
B110 = Return address 

Exit to return address, B registers irrelevant. 
Tempor9J?y Working Space ; B100-110 Bt 
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H480/2 
R480s continued 



) 

Notes: 



u 



1. For each deck requiring attention, an entry is made to the 
tape SER queue as followss In all cases the information 
preserved is the deck number. 

4) Tape engage normallys SER I/482 to read and check 
title. 

h) Tape engaged specially (e.g* for addressing testing 

or re-engaged after a fault) s the SER recorded in the 
halted tape queue earlier via R216 is hrough to the 
active part of the queue. This condition is indicated 
by 1 in digit i of the deck allocation directory. 
Digit 1 is reset to zero "by R48O. 

c) Tape disengaged following computer disengage. No action 
is taken. This condition is indicated by 1 in digit 11 
of the deck allocation directory. Digit 11 is reset to 
zero by R48O. 

2. The above actions observed the limit of entries to the tape 
SER queue, one per deck and two per channel. 

3. The record of tapes requiring action is reset to zero on 
exit. 

4. The routine requires modification to deal with more than 16 
decks, numbered to 15» 



O 
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R490/1 
H490 S Fixed store tape organisation exfcraoodes 

Purposes A fixed store extracode program entered from extracode jump' 
r~-^ table of extracodes 1007 to 1024 inclusive to enter relevant 

I ^ programs in main store, "in supervisor". 

Registers of fixed store s 22 

Instructions dheyed. '. 3 to 5 for each extracode before entry to R247. 

Parameters used ? (l) to (22) 

Cross references; 

Program load B 

Prepare load store 

Main store tape organisation 

Exit for mount 

Exit for mount free 

Exit for mount next reel 

Exit for accept - not used 

Exit for relc.-ise 

Exit for rename 

Connections vjith other routines ; 

All entries are direct from the extracode jump table. Exit is to 
1/247 or 3/247 with B91, B92 as shown below. B121, 119 are unaltered. 
This causes exit to the address in B9I j in supervisor with full recovery 
switch set 



O 



(14) 
15) 


= 1/247 
= (3/247 


16) 


= (1/492 


(17) 


= 1/498 


(18) 


= (2/498 


(19) 


= (3/498 


(20) 


= (5/499 


(22) 


= C4/492 



o 



E Code 


Entry to 


R491 


Exit 


to 


(1) or 


B91 on exit 


B92 on exit 








(3) 


of 247 






1007 


(3) 






3 




(3/498) 


- 


1010 


(1) 






3 




(1/498) 


- 


1011 


(2) 






3 




(2/498) 


- 


1012 


(1) 






3 




(3/498) 


- 


1013 


(2) 






3 




(5/499) 


- 


1014 


(5) 






3 




(1/492) 


0.1 


1015 


(6) 






3 




(1/492) 


0.4 


1016 


(7) 










(1/492) 


2.0 


1017 


(8) 










(1/492) 


2.5 


1020 


(9) 










(1/492) 


3.0 


1021 


(10) 










(1/496) 


- 


1022 


(11) 










(4/492) 


- 


1023 


(1.2) 






3 




(1/492) 


1.1 


1024 


(13) 






3 




(1/492) 


1.5 


Temporary Working Spaces 


Ml 













Notes; The value of B92 where appropriate is carried over via R247 to 

the SER which starts in the address specified in B91. 

• 1- 
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E492/1 

549^ ' Main store tape organisational eztracodes 

Purpose : An SER in main store entered from fixed store R491 "by extracodes 
referring to tape B. Finds the actual deck number involved and 
enters various routines to obey specific extracodes. Includes 
within itself the extracodes "Re-allocate" and- "Tape length". 

Registers of main store ? 42 

Instructions obeyed s Most extracodess 6 + entry to R221 to find deck 

number. 

Sxtracode "Length": 13 + entry to R221 

Extracode "Re-allocate" s I4 + entry to R221 

Parameters used s (I) to (20) 

Cross references ; 

= (1/221) Find deck number 

(9/205) Current program number in store control 

(3/221) Number of decks 

= (5/221) Beck allocation directory 

= (9/230) Deck timer directory 

^5/201) SER re-entry 

= (1/215) Set full recovery switch 

= (99/900) Extracode working space 

= (4/247) Return to main program 

(1/497) "'J/here am I"? extracode 

(2/494) V/ritG title 

(1/494) Read title 

U»} = (2/495) Unload 

(19) = (1/495) Free 

(20) = (3/495) Release tape 

Connections v/ith other routines ; 

Entered at I) Prom R491 for extracodes 1014 - 1020, 1023 1024 with 
B92 as described for R491> full recovery switch set. 

Exits To monitor vial5(l/22l) if deck not defined 

To halt program via 8(l/22l) if deck not available 
Otherwise to the relevant routine as listed above 
with full recovery switch set, extracode B linos and 
working space unaltered, and re-entry address set to 
the start of the relevant routine. 
B100 = absolute deck number (digits 7-3) 

Entered at 4) For re-allocate via R491 

BII9 = new label, digits 9-3 rest irrelevant 
ba = old label, digits 9-3 rest irrelevant 

Exits To (4/247) to return to main program with 
BII9 unaltered. 
B121 = 
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R492/2 
R492 8 continued 

Re-entered at (3) for extracodes "Length of tape" 

Exits (4/247) to return to main program with 

B91 = B92 = 

(99/900) = Length of tape, digits 15-3 

rest zero. 

Subroutine s s 

a) "Set full recovery switch"? 

Entered at (1/215) with BIO9 = Address of SER to deal 

with specific extraoodes. 

Exits to address in BI09. B110 unaltered. 

h) "Find deck number" s 

Entered at (l/22l) to find Atlas deck 

BI09 = Return address 

B100 = Programmers label, digits 8-2 

digits 0=0 
Exits To return address with B100 = deck number 

digits 7-3 
or to monitor 

or to halt programs Re-enter at (I/492) if 
deck not available* 

Entered at 15(l/22l) if Atlas or Orion deck not found, 

to monitor 

Entered at 8(l/22l) if Atlas or Orion deck found, 
BI07 = deck number, digits 7-3 
BIO6 « contents of deck allocation directory- 
digit 0. 
BI09 = return address 

Exits To return address if deck available, 
B100 = deck label 

To halt program if deck not available 
Note that the full recovery switch is reset 
on exit to return address 

Temporary working space ; Entry I) B100, IO6-IO9 

Entry 4) B100, 101, 121 



Notesi 



1. On entry (1) if B92 is odd, R221 is entered to locate a^a Atlas 
tape (monitor if Orion tape). If B92 is even, a search is made 
for an Atlas or Orion tape of the correct label. 

2. The program is halted via R221 if the tape referred to is not 
available (e.g. being mounted, under supervisor control, etc.). 
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R493/1 
R493 s Tape message printer 

■■■.^ Purpose s An SEE subroutine in main store to print messages to the 

, ~\ tape operator. Alternative entry conditions allow for 

^-^ printing the title of a tape in addition. 

Registers of main store s 44 

Instructions oheyed s 25 if message only? maximum 39 +2D if title also, 

v/here D = number of decks. 

Also entries to R240 to assemble output which will 
dominate the number of instructions obeyed. 

Parameters used ; (1) to (13) 

Cross references ; 

(5) = (l/2$0) Reserve output 

(6) = (2/220) Free output 

(8) = (12/213) SER dump address 

(9) = (5/201 ) SER re-entry address 

(10) = (1/240) Print message 

(11) = (8/494) Deck title directory 

(12) = {3/240) Print layout 

Connections with other routines ; 

''~^ Entered at I) with B100 = Deck number (digits 7-3) • 

■-> BIO4 = Return address (digits 22-3) 

Digit = 1 f print title) 

(no print title) 
BIO3 = Location in store of message 

Digits 22-0 (main store, starting at 
any character position). 
Digit 23 = (use title from title 
directory) 
1 (use title from BIO5) 
BI05 = Location of title if other than title 
directory 

Exit s a) To re-ent"ry address if operators output is busy 
with B102, 101 altered 

b) To return address when output is assembled in 
the buffer v/ith 

BIOO5 103, 104 unaltered 

B126 digits 2-0=0 

Re-entry address set to return address, 

Digits 2-0 = 



/^ 
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H493/2 
R493s continued 

Subroutines 8 

tj a} "Reserve operators output" s entered at (l/220) to reserve 

output channel 

B101 = 0,4 (channel 1) 
B100 = B102 = Deck number 

B110 = Return address 

Exit? To halt program (go "back to re-entry) if busy- 
To return address, with B100 = working area 
of output, if channel not "busy. 

b) "Free operators output" s Entered at (2/220) at conclusion with 

B101 = 0.4 

B100 = Deck number 

B110 = Return address 

Exits To return address with B100, 103, 104 unaltered, 

c) "Supervisor output"? Entered at (1/240) to print message with 

B100 = working store of output peripheral 
BIO8 =0.1 (message ends on character OO) 

1.0 (message of two characters) 
BIO9 = address of message 
B110 = return address digit = 1 to recover 

B1 00-1 04 on exit. 
SER dump address = (7/493) - working space for R493 

Exit after message written to buffer with 
BIOO-IO4 preserved 
Re-entry address set as B110 on entry 

Entered at (3/240) to print "New line" 

B100 = working area of peripheral 

BIO9 = 2.1 

B110 = Return address. Digit 0=1 as above. 

Exit to return address with BIOO-IO4 preserved 
re-entry address set as B110 on entry. 

Temporary working space s B101, 102, BIO5-IIO, Bt 

B100 used but reset to original value. 



O 



Not ess 



O 



1. Printing consists of message followed by deck number on one line, 
followed optionally by the tape title on a separate line. 
Message and title are in internal code, inner set, in store, and 
are terminated by character (octal) 00. 

2. A title is only printed if BI04 is odd on entry. The title 

is in the deck title directory for this deck, or in a separate 
location specified in BI05 on entry. If the first half word 
of title is zero, the title "FREE" is printed. 
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R493/3 
R493 s continued 

I \ ^' 4^'*'®^ reserving the output channel, this routine uses a dump 

^y f^°^ ^0^ B100-104 in the event of halts. Only one such area 

IS required, since only one message can be printed at once. 
If the output chajinei is busy, the routine callirg in R493 is 
halted, with B100 103, IO4 unaltered, and is resumed at the 
specified re-entry address^ if this has digit 1=0, only B100 
is preserved on restarting. Usually this is sufficient, as 
it contains the deck number both on entry to R493 and when the 
routine is halted by R220. 

4. The message and tape title may be in any supervisor main store 
block bearing a reserved block label in the block directory, 
which can be called to core store by non-equivalence in supervisor. 
They must not oooupy a supervisor main store block with a non- 
reserved block label. 
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R494/1 
R494 S ExtraoodOB Read/Write tape title 

■'"^ Purpogei Amain store SER to implement the extracode Read title, Write 

[^ titleo An alternative entry provides a subroutine to copy a 

title from olDject program store to supervisor store, compressing 

where necessary. 

Registers of main store s 80 

Instructions obeyed ? Reads Around 10 +2D + 7 per half word of title 

vi/here D = number of decks. 

Writes Around 20 + 2D + 10 per half v/ord + 5 
to 20 per character. 

Parameters Used s (l) to (12) 

(8) = "Deck title directory" 10 words per deck, holding 

title of tape on deck d in words lOd onwards. 

Gross references ; 

(9) = (99/900) Extracode working space 

(10) = (4/247) Exit to main program 

/ \ ~ Y'?-'^'^' ^^^'^ allocation directory 

(12) =0.4(6/201) Main program controls. 

(^ Connections with other Routines 

Entry at (I) from R492 for "Read title to store 9', in supervisor 
with full recovery switch set, 
B119 = S 

B100 = Deck number (digits 7-3) 

Exit to (4/247) to reset full recovery switch and exit to main 
program with 
B91 = 
B92 = number of half words Extracode working 

space filled less 1 (digits 4-2) 
Extracode working space = title or remainder of title. 
B97 even 
BII9 unaltered 

Entry at (2) from R492 for "Write title from store S", in supervisor 
with full recovery switch set 
B119 = S 
B100 = Deck number (digits 7-3) 

Exit to (4/247) to reset full recovery switch and exit to main 

program with main program controls set to resume 
in main control. 



O 



Entry at l(l) for subroutine "Find title" 
B110 = Return address 
B100 = Deck number (digits 7-3) 
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R494/2 
R494s continued 



Exit to return address with 

r-s^ B101 = Location of title of deck in deck 

( ) title directory (absolute address) 

^--^ BI09 = altered 

Entry at (3) for subroutine "Copy title to supervisor store" 
B110 = Return address 

B101 = Location in supervisor store for title 
BII9 = Location of the title in the store belonging to 
the current main program in control of store. 

Exit to return address with 

.B91-9T> B100-.110, Bt, BII9 altered 
Title copied and compressed (see notes) 
(This subroutine is used by R498, which implements 
the extracodes "Mount" etc.)« 

Subroutine : 

"Co-ordinate organisational extracode" 
Entered with (4/247) 

a) To copy to program store 

B91 = Re-entry address to R494 
B92 = Number of half words extracode working 
space loaded less 1, digits 8-2 = 3.4 
^ ) B97 even 

~ Return to address in B91 with B95 unaltered, B119 

stepped to next transfer address 

b) To read from program store 

B91 = Entry address to R494 

B92 = (read one half word) 

B97 odd 
Return to address in B91 v/ith one' half word working 
space filled, BII9 stepped by 0.4»B95 unaltered. 

Temporary Working Space s B91-97, BIOO-IIO, Bt 

Notes ? 

1. The title read from the deck title directory is in internal 
code characters; up to 79 significant characters are permitted. 
The last half v/ord of title must contain zero in digits 5-Q, 

2. The title read from program store obeys the same rules. If 10 
half words have been read and none has zero in digits 5-0 j zero 
is forced to digits 5-0 of the last half word - the title is 
thus cut short. 
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R494/3 
R494 g continued 

3. After reading the title from program store and cutting short 
; \ where necessary the title is analysed end condensed as followss- 

a) Characters 03-0?, 73-77 are omitted throughout. 

■fa) Character 02 (Tab) is replaced hy 01 (space) 

o) At the start, characters 01, 12, 37 (space, comma, full 
stop) are ommitted, 

d) Throughout, multiple space characters are ignored 
(i.e. n spaces equal one space). 

e) The title is ended on character 00. 

(Octal internal code characters are used ahove). 

The last, partially filled, half word is filled hy R494 with 
characters 00» 

4. On entry at (2), digit 13 of the deck allocation directory 
is forced to 1 to indicate that the title has heen changed. 

3' Although for efficiency this routine would occupy the same 

block of store as the deck title directory, the routine still 
,^ functions correctly if these are in separate blocks, and in 

\_J fact it is convadont elsewhere to use separate blocks for these. 
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T;iPB STOPPED E403 



Jhannel Na 




H3 



-s^PBAs 



SBA 




CB 



lO J—-^ 



<6 



I 

I 

jk — !j 



^ 



/ Not stopped 
r Tsef ore E3A 



Enter Sug) 
R201 



H499/7 



Starb 
Tape 



rCE76j^--r|<6 ,''- I' 



Failed to 
find EBA 



i£_ 



Of 6 



in 
o 



O 



CD 



pq 

s 

H 



ic 



CE+1— >CE 



/ 



4 St art, normal 
speed. PlEV. 
-^TCR 



1 




,!i3inj 



M->^'^\ — ^pHrcnsHEV 



start normal 
speed. WD 
— >TCS 




Q 



I 



o 

M 



I 






'3^ 



o 



(rCR^Sferfc) 

'I' 

TCn not set 
to stop 



r' Failed 
to stop 



Set F3 



i'iLIGMaaW OF TAPE TO EBA AFTEH A¥ MOA 



64 J /' PBAs J£-/tO' ■ f. REV ^ 5^ PBAsEBaT)— -5rP3As8l89 r-^PBAsEBA ^M 

la/ 




/ 
T 




: — i CE 




-n^ 



AsO J 






^ 



•»(^PBAgEBA^)^-\P3As8l89y ^402 





Beginning 
of tape 



CALCUL/iTIO!I OF EBA AFTER AH OFF-CHAI^TEL SE/iRCH H405 




H5 



< 



PB. 



i^oj)^^-^ 



TOR? REV 



?^ 




^ 



i 



EBA~1 -> EBAl— #iam^ 

msan) 



i;f E13A+1 -^EBA 




(^ PBAs EBA J>^ -^ C^ ^ 



PBA -^EBA : — -MSa±a.. 




r CB s K V^-; 




'a2 -> .a|-">j -> CE)-> Mai: 
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FIXED STORE COLUMN 4OO4 



(o)=*4oo4 



u 



1500 



O 





R500 






jSORT INTERRUPTS 






1) 


101, 


123, 


0, 


2*6 


[Line 2 








101, 


125, 


123, 


(2) 








4) 


101, 


123, 


0, 


0*6 


iLine 








101, 


125, 


123, 


(12) 


[Line 




PZ 


13) 


1(4) 


/ 


1(7) 




I - 




ICT printer 




254*4003 


/ 


1(7) 




|£ on I 




«T. 




(6/407) 


/ 


1(7) 




i Parity 6 


M'i'3 


tiraphicai output 




( 3/241 ) / 


1(7) 




} Parity 5 


FS 


.. 




(2/241 ) 


/ 


(1/541) 




i Parity 4 


SS 


TR7 




(3/407) 


/ 


1(7) 




1 Parity 3 


mm 


„ 




0,1(2/340) / 


1(7) 




1 Parity 2 


D 


s;j 




(2/241 ) 


/ 


(1/532) 




[Parity 1 


CS 


Card reader EOC 




1(4) 


/ 


(1) 




I- 




Wink 


7) 


101, 


123, 


0, 


31*600434 


IP2 






V 


101, 


135, 


123, 


Oo4(l2) 








8) 


101, 


123, 


0, 


30*600434 


|P3 








101, 


125, 


123, 


(23) 








23) 


(1/571) 


/ 


(1/329) 




IP3 

1 Teletypes 




Clocks 




1(8) 
1(8) 


/ 
/ 


(1/586) 
1(9) 




1 - 
1 - 




Teleprinters 




(I/566) 


/ 


1(9) 




lTR5's 




^^ 




1(8) 


/ 


1(9) 




1 - 




■M 




1(8) 


/ 


(1/551) 




lAnelex 




«* 




(I/561) 
1(8) 


/ 
/ 


(I/576) 
1(9) 




[Creed 30OO 
1 - 


Card punch 




(1) 


/ 


(1) 




h'/ink 




Wink 


9) 


101, 


123, 


0, 


29*600434 


IP4 








101, 


125, 


123, 


Oo4(33) 








11) 


101, 


123, 


0, 


1*6 


ILine 1 








101, 


125, 


123, 


0.4(31) 


[Powers of 


2 


Line 1 


31) 


0,1 


/ 


(I/700) 




1 


"^ 


Unassigned function 




0.2 


/ 


(I/700) 




[ 1 




DO 




0o4 


/ 


(I/700) 




1 2 




SVI 




1 


/ 


(I/700) 




1 3 




SVO 




2 


/ 


(1/243) 




1 4 




^ tapes and drums 




4 


/ 


(I/700) 




1 5 




EO 




8 


/ 


(1/406) 




[ 6 




Mag tape deck failure 




16 


/ 


(1/322) 




1 7 




Drums 




32 


/ 


(1) 




1 8 




^ 




101, 


126, 


0, 


(72/595) 









l23/\Vio/63, 



IR3C0 



o 




R500 








iSORT I^ITKRRUPTS 


X) 


101, 


123, 


0, 


2-6 


iLino 2 








101, 


125, 


133, 


(3) 








4) 


101, 


123, 


0, 


0*6 


iLine 








101, 


125, 


123, 


(13) 


iLine 


P3 




.^2) 


1(4) 


/ 


1(7) 




1 - 


ICT printer 






33*40044 


/ 


1(7) 




l£ on I 


» 






(6/407: 


/ 


1(7) 




1 parity 6 MTB 


Graphical output 






(2/341 ] 


/ 


1(7) 




1 parity 5 FS 


— 






(3/341) / 


(1/541) 




[Parity 4 SS 


TR7 






(3/407) / 


1(7) 




1 Parity 3 MTT 


- 






0.1(2/340) / 


1(7) 




[parity 2 D 


— 






(2/341) / 


( 1/532) 




[parity 1 CS 


Card reader EOC 






1(4) 


/ 


(1) 




1- 


Wink 




:^'> 


101, 


123, 


0, 


31*600434 


|P3 








101, 


125, 


123, 


0,4(13) 








;>) 


101, 


123, 


0, 


30*600434 


IP3 








101, 


125, 


123, 


(33) 


123 


P4 




■•,-r> ^ 


(1/571) / 


(1/239) 




[Teletypes 


Clocks 






1(C) 


/ 


(I/586) 




1 - 


Teleprinters 


r^ 




1(8) 


/ 


1(9) 




1 - 


— 


v_j 




( 1/566) 


/ 


(1/551) 




[TRS'itoelex (RIANCHESTER has 1(q)) 






1(8) 


/ 


1(9) 




1 ~ 


— 






1(0) 


/ 


1(9) 




[ - - (MANCHESTER has (l/^'^l)) 






(1/561) 


/ 


(I/576) 




[Creed 3OOO 


Card punch 






1(8) 


/ 


1(9) 




1 - 


- 






(1) 


/ 


(1) 




IV/ink 


\7ink 






101, 


123, 


0, 


39*600434 


IP4 








101, 


125, 


123, 


0.4(33) 








y.l) 


101, 


123, 


0, 


1*6 


[Line 1 








101, 


125, 


123, 


0.4(31) 


[Powers of 3 


Line 1 




-•i) 


0.1 


/ 


( 1/700) 




1 - 


Unassigned function 






0.2 


/ 


(1/70C) 




1 1 


BO 






0.4 


/ 


( 1/700) 




[ 3 


SVI 






1 


/■ 


(1/700) 




1 3 


svo 






2 


/ 


(1/242) 




1 4 


^ tapes and drums 






4 


/ 


( 1/700) 




1 5 


EO 






8 


/ 


( 1/406) 




1 6 


Magtape deck failure 






16 


/ 


(1/333) 




1 7 


Drums 






32 


/ 


(1) 




1 8 


_ 






101, 


136, 


0, 


(72/595) 







o 



! 1/9/64 



R7o8 



Acquire blocko for coc?)il6r 



u 



1) 



(2) : 

(3) = 

(4) = 

<6) : 

<5) = 
(7) = 

121, 
101, 

1S4, 

113, 
121, 
121, 



*001 






(4/203) 






(5/201 ) 






( 1/215) 






(21/261 ) 






(4/347) 






loo. 


0, 


(7) 


102, 


106, 


(3) 


102, 


0, 


(2) 


126, 


0, 


(4) 


109, 


0, 


(5) 


126, 


0, 


(6) 



14 excess blocks 

I Store directory 

I Re-entry address 

I Set fr switch 

I Alt, entry to End Compiling 

I Reset fr switch and exit 

iLinIc for main store 

I Step block counter 



I Exit setting full recovery switch 



118/1/63 



o 



R501 



[Load private store of any peripheral 



1) 



o 



3) 



3) 



(66)= 


=(66/599) 






(50)= 


=(50/599) 






<5i)-(5.V599) 






(53)= 


=(52/599) 






(53)= 


'(53/599) 






(56)=(56/599> 






(60)= 


=(60/599) 






(6i)= 


=(61/599) 






(63)- 


=(62/599) 






(67)=<67/599) 






(68)= 


=(68/599) 






(8)=> 


•5005 5301 






<9)=<5/599> 






165, 


108, 


109, 


*oooo 3700 


163, 


108, 


0, 





163, 


108, 


0, 





163, 


108, 


0, 





101, 


107, 


108, 


(10) 


121, 


106, 


0, 


(8) 


113, 


106, 


107, 


8*7 


164, 


107, 


109, 


7.0 


13, 


100, 


107, 


*7 


165, 


107, 


109, 


*oooo 3770 


134, 


107, 


0, 


*ooo4 0000 


113, 


107, 


100, 


(68) *7 


165, 


109, 


101, 


"^7777 7774 


132, 


109, 


0, 


*7 


113, 


109, 


100, 


(6o)*7 


165, 


109, 


102, 


''7777 7774 


122, 


109, 


0, 


*^ 


113, 


109, 


100, 


(6i)*7 


101, 


109, 


100, 


(60) *7 


113, 


109, 


100, 


(62)*7 


113, 


109, 


100, 


(67)*7 


121, 


109, 


0, 


-o„4 


113, 


109, 


100, 


(5i)*7 


113, 


0, 


100, 


(52)*7 


113, 


0, 


100, 


(53) *7 


113, 


0, 


100, 


(66) *7 


113, 


0, 


100, 


(50) *7 


113» 


0, 


100, 


(56) *7 


101, 


108, 


100, 


(68) *7 


127, 


108, 


0, 


*oooo 3700 


163, 


108, 


0, 





163, 


108, 


0, 





163, 


108, 


0, 





101, 


126, 


108, 


0.4(10) 



[Beginning of peripheral 

C subsidiary store table 

[Address of niunber 



[Subsidiary store address 
[ of number O 

[Private store of 'number 8' 

[Private store of selected 
[ peripheral 



[V-storo address (less *6) 



[Beginning of buffer 



[End of buffer 
[(1/504) 



[M => -0,4 



[Find peripheral type 



[Jump, depending on peripheral 

2.9.63 



o 



ER501.1 



O 



4) 131, 


109, 


0, 


oa 


[TR3 exit 


113 » 


109, 


100, 


(50) *7 




7) 113» 


0, 


100, 


(5i)*7 


[Card reader exit 


5) 131, 


ia6, 


110, 







6) ni, 


109, 


0, 


60,0 


[Anelex exit 


113, 


109, 


100, 


(6i)*7 




131, 


109, 


0, 


*5 




113, 


109, 


100, 


(62)*7 




113 » 


0, 


100, 


(60) *7 




113 » 


0, 


100, 


(67)*7 


[Card ptmch exit 


131, 


ia6. 


110, 







10) 10,0(9) 


*i 


/ 


(7) 


[Card reader 


(8) 




/ 


(5) 




(8) 




/ 


(5) 


[Xeronic printer 


(8) 




/ 


(5) 




9.0(9)* 


1 


/ 


(4) 


[TR7 


<8) 




/ 


(5) 




7.4<9)* 


1 


/ 


(5) 


[Graphical output 


(8) 




/ 


<5> 




13*4<9) 


*i 


/ 


(6) 


[Anelex printer 


(8) 




/ 


<5> 




(8) 




/ 


<5) 


[I,B,M. tape 


(8) 




/ 


<5> 




9.4<9)*i 


/ 


<5) 


[Creed 3000 


(8) 




/ 


(5) 




0=0(9)* 


1 


/ 


(4) 


[TR5 


(8) 




/ 


<5) 




0,4(9)* 


1 


/ 


<5) 


[Teletypes - 7 


4«4<9)*i 


/ 


(3) 


[Teletypes 8-11 


10,4(9) 


*i 


/ 


5(6) 


[Card punch 


(8) 




/ 


(3) 




(8) 




/ 


(5) 


[Spare 


(8) 




/ 


(5) 




l3oO(9) 


*i 


/ 


<5) 


[Teleprinter 


(8) 




/ 


<5) 




(8) 




/ 


(5> 


[(Clock) 


(8) 




/ 


(5) 




(8) 




/ 


(5) 


[Spare 


(8) 




/ 


(5) 




(8) 




/ 


<5) 


[(lam's) 


(8) 




/ 


(5) 




(8) 




/ 


<5) 


E(LAM's) 


(8) 




/ 


<5) 





3.9.63 



R503 



CR503 

[start reading from any input perlphc 



o 



o 





<5i)=<5l/599) 








(53)=(52/599> 








<53)=(53/399) 








(56)=(56/599> 








(64)=(64/599) 








<65)=<65/599> 








<66>=(66/599) 








(30)=*3667 








<30)=0, 


t 








(31)=o 








a) 


101, 


103, 


100, 


(53)*7 




137 » 


105, 


0, 


*7777 7770 




laa, 


105, 


103, 







314, 


126, 


105, 


(6) 




113, 


103, 


100, 


(53)*7 


6) 


101, 


105, 


100, 


(53>*7 




164, 


104, 


105, 


-im 7774 




113, 


104, 


100, 


(53) *7 


3) 


137, 


101, 


0, 


^W1 117A 




113, 


101, 


100, 


(64)^7 


4) 


165, 


103, 


103, 


'^7777 0000 




316, 


103, 


103, 


(30) 




137, 


103, 


0, 


*oooo 'jyjy 




lai, 


104, 


103, 


*7777 0003 




316, 


103, 


104, 


*oooo 7774 




134, 


103, 


103 r 


*i 




113, 


10a, 


100, 


(65)*7 


5) 


101, 


103, 


100, 


(66)^7 




314, 


136, 


103, 


(7) 




131, 


103, 


0, 


-0,4 




113, 


103, 


100, 


(5i)*7 


7) 


113, 


110, 


100, 


(66) *7 




113 » 


136, 


0, 


(5/301) 




131, 


110, 


0, 


(8) 




121, 


126, 


0, 


(1/509) 


8) 


101, 


136, 


109, 


(9) 


9) 


(V533) 




/ 


(99/599) 




(1/568) 




/ 


<99/599) 




(3/553) 




/ 


(99/599) 




(3/573) 




/ 


(1/568) 




(3/573) 




/ 


(3/579) 




(99/599) 


/ 


(3/573) 




(99/599) 


/ 


(99/599) 




(99/599) 


/ 


(99/599) 



[Reserved block number» 
[Information for punching fault. 



[If no code change retain previous 
[ shift 



[Preserve count of previous faults 



[Ignore l,s, bits, 
[Starting address. 



[Ensure there is one half 

[ word at end 

[Reserved block number (less *7) 



[Jump if last exit was with 
[ main store full 
[Otherwise, set M = -0,4 



[Find peripheral type, 
[Enter appropriate P,E,R, 



[Card reader 


/ 


Xeronic 


[T,R.7 


/ 


Graphical output 


[Anelex 


/ 


I,B,M, tape 


[Creed 3000 


/ 


T.R,5 


[Teletype 


/ 


Card punch 


[ - 


/ 


Teleprinter 


[ - 


/ 


- 


[ - 


/ 


- 



3,9.63 



o 



[R503 



^503 



[start writing to any output peripheral 





(50)= 


=<5o/599> 










<52)= 


=(52/599) 










(56)= 


=(56/599) 










<64)=<64/599) 








7) 


101, 


10a, 


100, 


(52)*7 






12;, 


102, 


0, 


'^7777 7770 


[If no code change retain 




123, 


102,, 


103, 





[ previous shift 




214, 


126, 


10a, 


(3) 




6) 


113. 


103, 


100, 


(52>*7 


[Set code table 


3) 


113. 


101, 


100, 


(64)*^ 






113. 


0, 


100, 


(56)*7 






113. 


0, 


100, 


(50) *7 




2) 


121, 


1^6, 


0, 


(7/502) 





o 



o 



2.9.63 



o 



o 



[R504 

R504 [Free any peripheral 

(1)=<3/501) 



2.9.63 



o 



R300 



(5i) 
(66) 
(6C) 
(80) 
(81) 



(31/599) 
(65/599) 

(68/599) 

<5/509) 

(6/599> 



ER508 

[peripheral one second subroutine 



[First of subsidiary store addresses 
[Number of subsidiary store addresses 



1) 
Z) 



•») 



O 

6) 



7) 



8) 
9) 

10) 



O 



131, 

loi, 

210, 
101, 
101, 
310, 

121, 
121, 
121, 

113 » 
103. 
217, 
121, 
314, 
101, 
101, 



101, 

100, 

136, 

102, 

110, 

126, 

110, 

126, 

110, 
no, 

103, 
126, 
104, 
126, 
104, 
126, 



(1/530) 

( 1/540 > 
(1/550) 

( 1/560) 

(1/570) 
<99/599) 
(99/599) 
(99/599) 

113. 
113. 
121, 
131, 
121, 
121, 

113. 
113 » 

202, 

121, 

(o) 
172, 
224, 
101, 



108, 

0, 

107, 
108, 

no, 

126, 

108, 

o, 

126, 
126, 



o, 

101, 
100, 
100, 
103, 
110, 

o, 
o, 

o, 

loo, 

103, 

103 » 

104, 

100, 

109, 



/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

100, 
0, 

o, 

100, 

o, 

0, 

loo, 
o, 

101, 

0, 



197*40174 

102, O, 
126, 0, 
136, o, 



(81) 

(80) 

(10) 

(68)*7 
*6 

(10) 

(3) 

( 1/509) 

0.1 

3*5 
(51) *7 

(9) 

-o„4 

(9) 

(66)*7 

(6) 



(99/599) 

(99/599) 

(99/599) 

(1/563) 

(1/575) 

(i/5C5) 

(99/599) 

(99/599) 

(5i)=7 
3*6 

o 


(10) 

(2/206) 

(5i)*7 

3*6 

(2) 

(1/202) 



*0004 2300 

(1/575) 
915*7 



[Set counter 

[Address of private store 

[go to next peripheral if out of use 

[V store address 

[Read V store 

[Go to next peripheral if disengaged 

[if engaged 

[Find peripheral type 

[inhibit interruptions, 

[ Minus M. 

[Qo to next peripheral if M>0, 

[go to next peripheral if M=-0,4 

[Find if peripheral is free 

[qo to peripheral fault testing 

[ routine. Return to (7), (8) or (9) 

[card reader / Xeronic 



tT.R.7 
[Anelex 
[creed 3OOO 
[Teletype 
[ - 

r - 


/ 
/ 
/ 
/ 
/ 
/ 
/ 


Graphical output 

I,B.M. tape 

T.R.5 

C.P. (J,mNCI-IESTER has 197*40174 

Teleprinter 


[ - 


_ 



[Set new M 

[PERMIT INTERRUPTIONS 



[Call S.E.Ra to queue 

[set new M 

[permit INTERRUPTIONS. 

[Next peripheral 



I MANCHESTER ONLY 
iGoneometei' 



(0) = 2(10) 



11/9/64 



o 



o 



o 



R509 



<68) = (68/599) 



CR509 



[Find peripheral type. 



1) 101, 
134, 

laS, 
135, 
135 » 
127. 
lai, 



109, 


100, 


(68) *7 


109, 


109, 





109, 


0, 





109, 


0, 





109, 


0, 





109, 


0, 


7.6 


136, 


110, 






2,9»63 



o 



CR511 



O 



R511 



[Find store length available 



1) 



a) 



(56) 


= (56/599) 




(65) 


= (65/599) 




101, 


105, 


100, 


(65) *7 


101, 


106, 


100, 


(56)*7 


ia7. 


106, 


0, 


■^im im 


215, 


126, 


106, 


(3) 


122, 


105, 


ioi, 


0.4 


113, 


0, 


101, 


*7 


217, 


ia6, 


105, 


(4) 


114, 


101, 


100, 


(56)*7 


124, 


101, 


0, 


0.4 


121, 


136, 


0, 


(4) 



[Jump if already started on record 



[Test space for next separator 
[Clear space for separator 
[If no more space, exit 
[Address of separator 
[Address of next character 



3) 



12,3, 105, 101, 



[Length remaining 



o 



4) 



131, ia6, 110, o 



2,9=63 



3 



O 



[R513 



RSi^ [Shift up character in half word 



3) 


165, 




1^5, 




164, 




121, 


1) 


165, 




314, 


4) 


135, 




133, 




315, 




165, 




134, 




134, 




130, 


3) 


131, 



106, 


107, 


106, 


0, 


106, 


107, 


107, 


106, 


106, 


110, 


136, 


106, 


107, 


0, 


106, 


0, 


136, 


106, 


106, 


110, 


106, 


106, 


106, 


106, 


106, 


0, 


136, 


110, 



*0303 0303 [Alternative entry 

o [2L,So BIOS of character up 6 places 

*;^474 7474 



0,3 [Usual Entry 

(3) 

o 

0,1 

(4) 

0.3 



o 

3c0 




3c9.63 



O 



[11513 
^5^3 [Restore character positions in half word. 



1) 


314, 


136, 


108, 


<4) 


2) 


214, 


136, 


108, 


(5) 




130, 


108, 


Or 


0,4 


3) 


125, 


107, 


0, 







123, 


108, 


0, 


0,1 




315, 


136, 


108, 


(3) 


5) 


121, 


136, 


110, 





4) 


131, 


136, 


110, 


1.0 



o 



o 



2o9.63 



o 



R514 



CR5i4 

[Retura to master routine from P»E,Rc 





(66) 
(51) 


= 


(66/599: 

(31/399 


> 

> 


1) 

3) 


131, 
101, 

113, 
113, 
131, 


101, 
110, 
101, 
110, 

136, 


0, 

100, 

100, 

0, 

110, 




(66) *7 
(66) *7 
(5/301) 



3) 


101, 
131, 


101, 

136, 


100, 
0, 


(3i)*7 
(a) 



[Return address 

[Preserve reason for stopping 



O 



3o9.63 



o 



CR513 



R515 



[start aay peripheral 



1) 



2.) 



O 4) 



<5i) 


=3 


(51/599) 






(60) 


= 


(60/599) 






(6a) 


= 


(63/599) 






(67) 


=3 


(67/599) 






(68) 


= 


(68/599) 






101, 


108, 


100, 


(60) *7 




113, 


108, 


100, 


(63)*7 




113, 


108, 


100, 


(67) *7 




113. 


0, 


100, 


(5i)*7 


[Set M= 


101, 


108, 


100, 


(68)*7 


[V store address 


131, 


107, 


0, 


0.1 




113, 


107, 


0, 


3*6 


[INHIBIT INTERRUPTIONS 


107, 


109, 


108, 


*6 


[Test fault bits 


ai5. 


136, 


109, 


(4) 


[Exit if faulty or disengaged 


lai, 


107, 


0, 


1.0 




ii3» 


107, 


io8, 


«6 


[Start 


113, 


0, 


0, 


3*6 


[Permit interruptions 


131, 


136, 


0, 


(1/303) 





2.9063 



r 



o 



[R516 



R516 



[Set code conversion parameters. 



1) 



3) 



(53) 
(90) 

(91) 

101, 
101, 

113, 

165, 
124, 
101, 

113» 
165, 
131, 



109, 
108, 
108, 

108, 
108, 
108, 
108, 
108, 
136, 



(30/517)0.0 
(20/517)0,4 



(53/599) 
(90/599) 

(91/599) 



100, 


(53)*7 


109, 





0, 


(90) 


109, 


0.6 


108, 





108, 


(3) 


0, 


(91) 


109, 


""1111 111^ 


110, 






/ 
/ 



[Address of parameter table, 
[Address of character table. 



[Jmnp table. 



(30/517)0.3 
(30/517)0.6 



o 



2,9,63 



o 



o 



CR517.1 



a5i7 



[Character code conversion 





(90) 
(91) 


s 


(90/599) 
(91/599) 




1) 


101, 


109, 


103, 


*7 


3) 


104, 
101, 


109, 
109, 


0, 

109, 


(90) 



3) 


165, 
105, 
101, 


110, 
110, 

136, 


109, 

0, 
110, 


*7 

(91) 





o 



[Subsidiary store working 
[ space 



[Pick up A code character 

[Address of line in table 
[Table look up 

[3 bits from m,s. end of table 

[Jxunp to address contained 
[in one of the registers: 
[0.0(30) to 7.4(30) 
[0,0(30) to 7*4<30) 



r 



3o9<.63 



[R5i7«3 



O 



o 



30) 


(21) 


/ 


(21) 






(26) 


/ 


(26) 






(22) 


/ 


(27) 






(23) 


/ 


(22) 






(26) 


/ 


(26) 






(24) 


/ 


(28) 






(26) 


/ 


(26) 






(25) 


/ 


(29) 




21) 


101, 


126, 


108, 


4.0 


22) 


101, 


126, 


108, 


3»4 


23) 


101, 


110, 


108, 


0.4 




i-"3» 


110, 


0, 


(90) 




131, 


no. 


0, 


0.4(20) 




113 » 


110, 


0, 


(91) 




101, 


126, 


loO, 


3»o 


24) 


121, 


110, 


0, 


0.2(30) 




113» 


no, 


0, 


(91) 




101, 


109, 


108, 


1.4 




101, 


126, 


108, 


2,4 


25) 


121, 


no, 


0, 


0,2(30) 




113, 


no. 


0, 


(91) 


26) 


101, 


126, 


108, 


2.0 


27) 


101, 


no. 


108, 


0,0 




113. 


no. 


0, 


(90) 




121, 


110, 


0, 


0.0(30) 




113 » 


no, 


0, 


(91) 




101, 


126, 


108, 


3.0 


28) 


131, 


no, 


0, 


0.6(30) 




113» 


no. 


0, 


(91) 




101, 


109, 


108, 


1.4 




101, 


126, 


108, 


2.4 


29) 


121, 


no, 


0, 


0.6(30) 




113. 


no, 


0, 


(91) 




101, 


126, 


108, 


2,0 



[Last character was in 

[A shift B shift / a shift B shift 

[Special character 

[Appears in both B code shifts 

[A shift change character 

[a shift change character 

[Any B shift character 

[Any b shift character 

[B shift change chax'acter 

[b shift change 



[Change to table *r'. 
[Expect next character in 
[ a shift B shift. 



[Change to b shift 

[b shift change character 



[Change to b shift 



[Change to table 'A' 
[Expect next character in 
[ A shift B shift 



[Change to b shift 

[b shift change character 



[change to b shift 



o 



2.9.63 



CR517.3 



30) 



34> 



O 



35) 



36) 



37) 



38) 



39) 



(31) 


/ 


(31) 




(«6) 


/ 


(36) 




(23) 


/ 


(37) 




(34) 


/ 


(33) 




(35) 


/ 


(38) 




(36) 


/ 


(36) 




(36) 


/ 


(39) 




(a6) 


/ 


(36) 




101, 


no. 


108, 


0.4 


113. 


110, 


0, 


(90) 


131, 


110, 


0, 


0.6(30) 


113. 


110, 


0, 


(91) 


101, 


136, 


108, 


3.0 


131, 


110, 


0, 


0,0(20) 


113. 


no. 


0, 


(91) 


101, 


109, 


108, 


1,0 


101, 


136, 


108, 


3.4 


131, 


no. 


0, 


0,0(30) 


113, 


no, 


0, 


(91) 


101, 


136, 


108, 


3.0 


101, 


no, 


108, 


0,0 


113, 


no. 


0, 


(90) 


131, 


no, 


0, 


0,3(30) 


113, 


110, 


0, 


(91) 


101, 


136, 


108, 


3.0 


131, 


no, 


0, 


0.4(30) 


113, 


no. 


0, 


(91) 


101, 


109, 


108, 


1.0 


101, 


136, 


108, 


3.4 


131, 


no. 


0, 


0.4(30) 


113, 


no, 


0, 


(91) 


101, 


136, 


108, 


3.0 



[Last character was in 

EA shift b shift / a shift b shift 

[Special character 

[Appears in both B code shifts 

[A shift change character 

[a shift change character 

[Any B shift character 

[Any b shift character 

[B shift change character 

Cb shift change character 



CChange to table 'a' 



[Expect next character in 
[ a shift b shift 



[Change to B shift 

[B shift change character 



[Change to B shift 



[Change to table 'A' 
[Expect next character in 
[ A shift b shift 



[Change to B shift 

[ B shift change character 



[Change to B shift 



2,9.63 



o 



X 



CR318 



a5l2 [Preserve code conversion 

C parameters • 





(53) 


3 


(53/599) 




(91) 


= 


(91/599) 


1) 


fix, 


109, 


0, 


0,6 


a) 


lai, 


108, 


0, 


^^7777 777i. 




117, 


108, 


100, 


(53)*7 




107, 


109, 


0, 


(91) 




114. 


109, 


100, 


(53)*7 




121, 


ia6, 


0, 


(1/516) 



[Clear bits 1 and 2, 



[Insert bits 1 and 2. 
[Reset parameters, in case 
[ required later. 



O 



2.9,63 



o 



o 



R5i9 



O 





(53) 


s 


(53/599) 




(56) 


e: 


(56/599) 


1) 


131, 


109, 


0, 







131, 


108, 


0, 







131, 


136, 


0, 


(3) 


3) 


131, 


109, 


0, 


*1 




131, 


108, 


0, 


0.1 


3) 


101, 


107, 


100, 


(53)*7 




311, 


126, 


107, 


<4) 




134, 


109, 


0, 


*4 


4) 


101, 


107, 


100, 


(56) *7 




311, 


136, 


107, 


(5) 




134, 


109, 


0, 


*3 


5) 


137, 


107, 


0, 


mmm 




134 r 


109, 


101, 







133, 


109, 


107, 


0.4 




113, 


109, 


107, 


«7 




134, 


101, 


0, 


0.3 




137, 


101, 


0, 


*7;77 7774 




113, 


0, 


101, 


*7 




113, 


108, 


100, 


(56) *7 




131, 


109, 


0, 


0.4 
0,0 




310, 


109, 


108, 




131, 


136, 


0, 


(3/518) 



CR519 

[Insert Separator 

[Enter here if end of record 
[Enter here if record continues 



[Jianp if internal code 
[Bit 33 = 1 if binary 

[Jtunp if this was new record 
[Bit 33 = 1 if continuation 



[Add length of record 
[Send to store 

[Round up next address 
[Clear that half word 
[Set (56) = O or 0,1 
[Retain input code shift, but 
[ return to inner set if 
[ true end of record 



3,9,63 



O 



o 



CR520 



R520 



[Set reserved block label 



1) 



o '' 



5) 



(7) 


s 


*0000 


1001 


(8) 




*3667 




(64) 


— 


(6y599> 


101, 


101, 


100, 


(64)^^7 


217, 


126, 


101, 


(5) 


165, 


109, 


101, 


mil 


124, 


109, 


0, 


(7) 


121, 


126, 


0, 


(1/318) 


101, 


101, 


100, 


(64)*7 


217, 


126, 


101, 


(5) 


127, 


101, 


0, 


*0000 'J'J'J'J 


124, 


101, 


0, 


(8)*i 


121, 


103, 


109, 





121, 


108, 


0, 


(8) 


121, 


126, 


0, 


(1/312) 


121, 


10a, 


0, 


*4 


122, 


101, 


0, 


*7 


121, 


126, 


110, 






[Information for R318 



[New block label 



[Main store address* 
[Jmnp if not main store, 
[Block ntimber 

[Call block to cores 



[Main store address, 
[Jump if not main store, 

[New block address 

[Copy page number to BI03 

[Set PAR 

[*4 if not main store 
[Subtract *7 



2,9.63 



u 



o 



1) 



o 



3) 



6) 



7) 



<5o)=C5o/599) 

(5«)=<53/S99) 

(56)=<56/599) 
(99)=(99/599) 



[Pick up record separator 



1^4' 
lOi, 

165, 
315, 
165, 
113, 

s.t4» 
Ki4, 
164, 
131, 

164, 
165, 

315 1 
131, 

ii7» 
ai6, 

131, 

114 » 

165, 
315, 

131, 
110, 
131, 
131, 

164, 
101, 

131, 

1^7, 
135, 
113 » 

131, 

113, 
131, 



101, 
101, 
108, 
107, 
108, 
107, 
107, 
136, 
101, 
107, 
109, 

136, 

lay, 

107, 

109, 
126, 
109, 

109, 
136, 

109, 
109, 

109, 
136, 
109, 

109, 
109, 

no, 
no, 

107, 
126, 

107, 
107, 
107, 
136, 

o, 
136, 



o, 

101, 

108, 

107, 
108, 

100, 

108, 

0, 
101, 

107, 
109, 

101, 
0, 

108, 
109, 

0, 
100, 

108, 

o, 

100, 

108, 
109, 

o, 

100, 

no, 

107, 
107, 

0, 
0, 

o, 

100, 

109, 

100, 

no, 



0.3 

*7 
*ooo4 

*3 

*oooo 7777 

(56) *7 
(7) 

0,4 

*oooo 7777 
'^77'?7 0003 
(qg) 

*7777 0000 
0,1 

*3 

(3) 

'^1711 7773 
(53) *7 
<3) 

Ool 

<53)*7 

*i 

(7) 

0,1 

<56>*7 



(6) 

o»3 

*7 

(1/513) 

*77oo 0000 

*4 

<5o)*7 



(50) *7 




[Round up next address 

[Separator 

[If separator has bit 14=1 treat as 

[ record with zero character count 

[Character count 

[Jump if izero separator 

[Address of first character 

[Monitor if next separator is 
[ not in same block 

[Address of carriage control ch. 



[Jump if not beginning now record 
[If beginning, clear bits a, 



[If binary insert 0,1 



[Jump if record continues 
[If record ends, subtract 
[ Oil from character 
[ count 



[Shift required characters to 
[ top end 

[Shift to l.s, end and add *4 
[Control character to (50) 
[Return 

[Clear (50) 
[Return 



O 



2.9.63 



o 



[HSaa 



R523 [Find peripheral buffer in 

[ part page 



<6l) = (61/599) 

(63) = (6a/599) 

(6;) = (67/599) 

1) 101, 104, 100, (6i)*7 

lai, 136, 0, (3) 

a) 101, 104, ioo, (63)*7 

3) 101, 103, 100, (67) *7 

1255, 104, 103, 

lai, 126, 110, o 



O 



2.9.63 



o 



o 



CR533 



R5a3 



[Remove reserved block label. 





(64) 
(67) 


: 


(64/399) 
(67/399) 




1) 

4) 


113, 
101, 

137, 
164, 
113, 


103, 
109, 

101, 

101, 
101, 


100, 

100, 

0, 

109, 

100, 


(67) *7 
(64)*7 
*oooo7777 

(64) *7 


[Preserve next address in buffer. 
[Old (main) store address 
[l,s, bits of next address 
[Add in block number 
[Preserve 


2) 


131, 
131, 
316, 
131, 


108, 
109, 
136, 
136, 


0, 

103, 
loa, 
110, 


*4 


(1/313) 



[Lock out bit 

[Page nvmiber 

[Set PAR 

[Exit if not main store 



o 



3.9.63 



o 



o 



R537 



[Carriage control code conversion 



O 





(50)= 


(50/599) 








<53)= 


(33/599) 






1) 


101, 


109, 


100, 


(5o)*7 




315, 


136, 


109, 


(3) 




101, 


136, 


108, 


7.0 


a) 


137, 


109, 


0, 


1*1 




134, 


109, 


109, 







134, 


109, 


109, 





3) 


104, 


109, 


108, 


5.0 




101, 


109, 


109, 







101, 


107, 


100, 


i.^ji^'^l 




137, 


107, 


0, 


0.3 




165, 


110, 


109, 


*3 




317, 


136, 


109, 


(14) 




315, 


136, 


110, 


(10) 




101, 


136, 


108, 


6,4 


10) 


314, 


136, 


107, 


(18) 




101, 


109, 


108, 


1.0 




131, 


136, 


0, 


(15) 


14) 


315, 


136, 


no, 


(18) 




136, 


107, 


0, 


0.3 




314, 


136, 


107, 


(18) 




101, 


109, 


108, 


1,4 


13) 


116, 


107, 


100, 


(53)*7 




101, 


136, 


108, 


6»o 


18) 


165, 


110, 


109, 


*oo77 




133, 


no, 


0, 







135, 


110, 


0, 


*4 




113, 


no, 


100, 


(30) *7 



101, 136, 108, 5.4 



[Pick up control character, 

[Exit if no control character 
[Shift up 2 places 



[Add address of table. 
[Table look up 

[Find present output shift 

[Jvunp if chairacter is in 

[ second, or both output shifts 

[Exit with special character, or zero 



[Insert shift if required 



[Jump if either shift will do 



[Insert shift if required, 
[Alter private store, 
[Exit with shift character. 

[Bits 17-13 

[Character for next time 

[Store C, Control chart for next time 

[Exit with character 



O 



3.9.fe 



o 



[R530 



a530 



[Card reader fault test 



(10) 



(5/7a4) 



O 



L) 


101, 


106, 


loa, 


*6 




165, 


107, 


106, 


0,2 




ai4i 


136, 


107, 


(9/508) 




314» 


136, 


104, 


(7) 




165, 


107, 


106, 


o„4 




ai4. 


136, 


107, 


(3) 




131, 


108, 


0, 


1.0 




131, 


136, 


0, 


(4) 


2) 


165, 


107 » 


106, 


*0000 0100 




314» 


136, 


107, 


<3) 




131, 


109, 


0, 


*oooo 0103 




lai, 


108, 


0, 


3.0 




1^1, 


136, 


0, 


<5) 


3) 


165, 


107, 


106, 


3.0 




314, 


136, 


107, 


(7) 




131, 


108, 


0, 


4.4 


4) 


131, 


109, 


0, 


0.3 


5> 


113 » 


109, 


103, 


*6 


6) 


131, 


109, 


0, 


(1/533) 




lai. 


136, 


0, 


(7/508) 


7) 


131, 


108, 


0, 


-0.4 


8) 


lal, 


109, 


0, 


(10) 




131, 


136, 


0, 


(7/508) 



[Return if started 

[Call input msflter if raader 

[ is free 



[If disabled set M=1.0 



[Reset overdue and disengage 
[Set M = a.O 



[If cards low set M = 4,4 
[Stop and disengage 

[Call P.E.R. to queue 



[Set M =» -0,4 
[Call input master 



3,9,63 



O 



o 



1) 



'Z> 



o 



yj 



(5o)=(5o/599) 
(6a)=(6a/59Q) 
(io)=<5/399)io„o 
(99)=(99/599> 



[R531 

[card reader column interruption 



101, 
101, 

(3) 

(3) 

(99) 
(99) 
(99) 
(99) 
(99) 
(99) 



123, 
123, 

/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 



(1/500) / 



O 



101, 

101, 
131, 

il3, 

101, 
113. 

101, 
121, 
314, 

133, 
101, 
106, 
127, 
314, 
134, 
131, 

167, 

il3, 
136, 

137, 

215, 
167, 

113, 
131, 

113, 
165, 
133, 
317, 
131, 



111, 

113, 

114, 

114, 

116, 

125, 

li3, 
115, 
116, 
116, 
125, 

ii7, 
135, 

135, 

117, 
113, 

113, 

118, 
118, 
125, 
125, 



0, 


c 


o 



o 




123, 

111, 

113, 

111, 
123, 

113, 

111, 
116, 
116, 

o, 

113, 
123, 

116, 

0, 



0, 
li3, 

0, 

0, 

ii5, 

o, 

111, 

o, 

123, 

0, 
llo, 

o. 



*6oo4 3700 

(3) 



(10) 

(62)*7 

0,4 

(63)*7 

*6oo4 0000 
*7 

(5o)*7 
0,4 

(5) 

0.4 

*7 

8*6004 0000 

*7777 
(7> 

*0001 

(7> 

*oooo 3000 

*7 
*ooo6 

*7777 

(7> 

0.1 
(50) *7 

o„4 

*6oo4 0000 
*oooo 7774 
41,0 
(I/500) 
(3/533) 



EmAJICIISSTER has (99) 



[Find private store 
[present address 

[Next address 

[Copy card colvimn to 
[ buffer 



[count columns 

[Jump if first column 

[Read previous character 

[compare with check station 

[if different count up faults 

[jf first column, set 
[ bit 10 = 1 

[Test for end of pack punching 
[if end, force bit 0=1 



[POLAM 

[check not too many card 

[ columns 



[1/9/64 



1) 



3) 



4) 



R53^' 



[R533 

[Card reader E.O.C. interruption 



(50)^ 


(50/599) 






(SD* 


(51/599) 






(6i)=*<6i/599) 






(62)=<63/599) 






<io)=. 


(10/531) 






101, 


133, 


0, 


*6oo4 3670 


.roi, 


111, 


133, 


(10) 


101, 


113, 


ill, 


(5o)*7 


i65, 


■no 


113, 


■^rm 7774 


ISIS, 


113, 


0, 


40*4 


214. 


135, 


113. 


<4) 


131, 


113, 


0, 


7.0 


113. 


113, 


111, 


(5l)*7 


131, 


113, 


0, 


3.7 


113. 


113, 


133, 


*6oo4 0000 


131, 


113, 


0, 


(1/533) 


131, 


135, 


0, 


(4/301) 


113. 


0, 


111, 


(5o)*7 


131, 


113, 


0, 


6,0 


101, 


114> 


111, 


(6a)*7 


133, 


114, 


0, 


0.4 


131, 


115, 


0, 


*oooo 4000 


113. 


115, 


114. 


*7 


134, 


114, 


0, 


40.4 


100, 


114. 


111, 


(6i)*7 


317, 


113, 


114. 


6.3*4 


131, 


114. 


0, 


-0,4 


310, 


113. 


113, 


6,3*4 


310, 


114, 


113, 


5.4 


113, 


113, 


133, 


*6oo4 0000 


3l6, 


135, 


113, 


(1/500) 


113. 


114, 


111, 


(5i)*7 


131, 


113, 


0, 


(1/533) 


131, 


135, 


0, 


(4/301) 



[Which card reader 
[Find private store 



[Jump provided count 
[ correct 
[Check failed 
[Set M = 7.0 

[POLAM, Stop, Disengage 

[Call PER to queue 

[Reset count 

[Set end of card marker 

[Set M = -0,4 if buffer full 

[Set M = 5,4 if ending character 
[Do not divert, POLAM 
[Exit unless stopping 

[Call PER to queue 



O 



3.9.63 



R533 



[R533»l 

[Card reader PER 



o 





<5o)= 


(50/599) 








(51)= 


(51/599) 








(53)= 


(53/599) 








(6a)=(6s/599) 








(6;)= 


(67/599) 








(68)= 


(68/599) 








(90)= 


(90/599) 








(9S)= 


(92/599) 






1) 


101, 


101, 


100, 


(5o)*7 




165, 


103, 


101, 


*oooo 7774 




lio, 


103, 


100, 


(62)*7 




113 » 


0, 


100, 


(5o)*7 




lai, 


110, 


0, 


(3) 




131, 


126, 


0, 


(1/530) 


a) 


121, 


110, 


0, 


(3) 




131, 


136, 


0, 


(2/520) 


3) 


113, 


103, 


0, 


(93) 




121, 


110, 


0, 


(4) 




121, 


136, 


0, 


(3/533) 


4) 


121, 


110, 


0, 


(6) 


121, 


126, 


0, 


(1/516) 


6) 


121, 


110, 


0, 


(7) 




121, 


126, 


0, 


(1/511) 


7) 


217 » 


126, 


105, 


(36) 




124, 


105, 


105, 







124, 


105, 


105 » 







101, 


107, 


101, 


*7 




121, 


110, 


0, 


(8) 




164, 


110, 


101, 


Oo3 




121, 


126, 


0, 


(i/5ia) 


8) 


210, 


126, 


109, 


(10) 




202, 


136, 


106, 


(34) 




121, 


106, 


0, 


i«4 




121, 


107, 


0, 







121, 


136, 


0, 


(34) 



[Step back to end of last 
[ good card 
[Clear column count 



[Block to cores 

[ sets Bioi, BI03 

[Preserve BI03 in temporary storage 

[Find part page 

[ sets BI03, BI04 

[Set code conversion parameters 

[ sets BI08, BI09 



[Find store length available 

[ sets BI05 

[Go to end if exceeded 



[Current half word 

[Shift next available 

[ space to m,s. end 

[ sets BI06 

[Jump if binary 

[Jump and set count if 

[ in middle of half word 

[Set covint and half word 

[ if at beginning 



3.9*63 



o 



10) 


127, 


105, 


0, 


*mi 7770 




134, 


106, 


0, 


0,4 




137, 


106, 


0, 


1,0 




ao3, 


1^6, 


106, 


(14) 




131, 


106, 


0, 


1.0 




131, 


107, 


0, 







121, 


136, 


0, 


(14) 


12) 


101, 


109, 


103, 


*7 




164, 


107, 


109, 


""im 




12-5 > 


107, 


0, 







135, 


107, 


0, 







137, 


109, 


0, 


*oooo 4000 




315, 


136, 


109, 


(19) 




303, 


136, 


106, 


(13) 




113, 


107, 


101, 


*7 




131, 


io6» 


0, 


1.0 




131, 


107, 


0, 





13) 


134, 


103, 


0, 


0.4 




124, 


101, 


0, 


0.2 


14) 


302, 


136, 


104, 


<l6> 




101, 


105, 


100, 


(51) *7 




131, 


136, 


0, 


(17) 


16) 


203, 


136, 


105/ 


(12) 


17) 


121, 


109, 


0, 


*5 




121, 


126, 


0, 


(27) 


19) 


121, 


109, 


0, 


*4 




121, 


136, 


0, 


(31) 



CR533.3 

[BINARY 

[Roimd down counters 



CJump if in middle of 
C half word 



[Pick out character and 
[ pack into half word 



[Test for end of card 



[If half word full, send 
[ to store and reset 
[ count 

[Advance buffer address 
[Advance store address 
[Jump unless buffer empty 
[Find reason for stopping 



[Jump unless store full 
[Prepare for binary separator 



[Prepare for binary separator 



2.9.63 



o 



tR533.3 



O 



O 



23) 


laa, 


103, 


0, 


0,4 




124, 


104, 


0, 


0,4 


ao) 


ia7» 


109, 


0, 


7*7 




125, 


107, 


109, 







aoa. 


ia6, 


106, 


(33) 




113, 


107, 


101, 


*7 




lai, 


106, 


0, 


1.4 




IJSI, 


107, 


0, 





aa) 


124. 


101, 


0, 


0.1 




1-^4, 


103, 


0, 


0,4 


34) 


aoa, 


126, 


104, 


(25) 




101, 


103, 


100, 


(5i)*7 




lai, 


126, 


0, 


(36) 


aS) 


20a, 


ia6. 


103, 


(39) 


a6) 


isi, 


109, 


0, 


*i 


a7) 


1S5, 


108, 


101, 


0.3 




lai. 


no, 


0, 


(38) 




lai, 


ia6, 


0, 


(1/513) 


a8) 




107, 


101, 


*7 




131, 


108, 


0, 


0.1 




131, 


110, 


0, 


(37) 




ai6. 


ia6, 


105, 


(4/519) 




lai, 


ia6. 


0, 


(I/518) 


a9) 


101, 


102, 


103, 


*7 




101, 


ia6, 


0, 


(90) 


30) 


121, 


109, 


0, 





31) 


125, 


107, 


0, 


2ai 




113, 


107, 


101, 


*7 




134, 


101, 


0, 


0.1 




134, 


103, 


0, 


0.4 




165, 


108, 


101, 


0.3 




lai. 


110, 


0, 


(3a) 




lai. 


126, 


0, 


(1/513) 


3a) 


113» 


107, 


101, 


*7 




131, 


108, 


0, 







131, 


110, 


0, 


(33) 




121, 


ia6, 


0, 


(4/519) 


33) 


121, 


109, 


0, 







121, 


110, 


0, 


<34> 




121, 


ia6, 


0, 


(a/518) 


34) 


215, 


ia6, 


104, 


(6) 




101, 


105, 


100, 


(5i)*7 




121, 


ia6, 


0, 


(37) 


36) 


121, 


105, 


0, 





37) 


101, 


103, 


0, 


(9a) 




121, 


110, 


0, 


(38) 




121, 


136, 


0, 


(1/523) 


38) 


121, 


101, 


105, 







124, 


105, 


0, 


0,4 




215, 


136, 


103, 


(3/514) 




121, 


109, 


0, 


*oooo 0135 




lai, 


ia6, 


0, 


(1/515) 



[Jump unless half word is full 
[Send to store 



[Advance store address 
[Advance buffer address 
[Jump provided buffer space 
[If buffer finished, find reason 
[ for stopping, 

[Jump if store space 

[Prepare for internal code separator 

[If no store space, write 
[ away last half word 



[Insert separator 

[If buffer finished, preserve 

[ code conversion parameters 

[Pick up next character 

[ from buffer and jump 

[ to code conversion 

[Return to (30), (33) ot (30) 

[Prepare for internal code separator 
[End of card character 
[Write to store 



[Write away last half word 



[Insert separator 

[Next card expected for 

[ internal code if reading 

[ mixed cards 

[Convert next card 



[Remove reserved block label 

[If stopped because of 

[ fault, return to master 

[Otherwise start reader 
3.9.63 



o 



Ca533.4 

CHarwell code conversion 



o 



o 



40) <4i) 


/ 


(48) 




0.5 


/ 


0.4 




<ao) 


/ 


(33) 




(48) 


/ 







41) 135, 


103, 


0, 





165, 


109, 


10a, 


7.4 


135, 


loa. 


0, 





317, 


is6. 


103, 


(30) 


165, 


no, 


10?,, 


*oooo 0374 


135, 


103, 


0, 





164, 


109, 


103, 


*oooo 0300 


101, 


110, 


no, 


(49) 


lO.t, 


109, 


109, 


(49) 


137, 


109, 


0, 


*0003 3743 


163, 


109, 


0, 





164, 


109, 


no, 


*oooi 4035 


165, 


110, 


109, 


*0003 5003 


315, 


136, 


no. 


<43) 


137, 


109, 


0, 


31.4 


101, 


109, 


109, 


(49) 


135, 


109, 


0, 





131, 


136, 


0, 


(3/517) 


43) 165, 


109, 


103, 


3.0 


315, 


136, 


109, 


(47) 


101, 


110, 


100, 


(53) *7 


134, 


no. 


0, 


0.4 


113, 


110, 


100, 


(53) *7 


131, 


109, 


0, 


♦4000 0077 


311, 


136, 


no, 


(3/517) 


131, 


104, 


103, 


0.4 


113, 


104, 


100, 


(63)*7 


131, 


104, 


0, 


4.0 


113, 


104, 


100, 


(51) *7 


1«1, 


104, 


0, 


0,3 


101, 


no, 


100, 


(68) *7 


113, 


104, 


no, 


*6 


131, 


104, 


0, 





131, 


136, 


0, 


(y5i7) 


47) 131, 


109, 


0, 


*3 


131, 


126, 


0, 


(3/517) 


4^) 134, 


104, 


0, 


0.4 


134, 


105, 


0, 


0.4 


131, 


136, 


0, 


(10) 



[Exit if end of card 
[Rows 3 to 7 

[Rows o 9 + - 1 



[Bits 13, 10, 3, 7, 6, 5, 1 

[Shift down 

[Bits 13, 11, 4, 3, 3, 

[Bits 13, 11, 9, 1 

[Exit if punching error in 

[ either half, or if two 

[ halves incompatable 



[Retiirn to (30) or (33) 

[If fault is on first column 
[ translate as binary 

[Count errors 

[If (53) even, continue 

[ with Fault character 



[Otherwise indicate 
[ faulty ptmchlng 



[Disengage reader 



[Change to binary 

[ for this card only 



3,9.63 



CR533.5 

[Harwell code conversion table 



49) 



o 



*oi40 

*a34o 
*a.i4o 

*364o 

*3540 

*434o 
*4140 
*464o 



0000 / 

0331 / 

0225 / 

6000 / 

0115 / 

6000 / 

6000 / 

6000 / 



♦3640 0453 / 

*5440 474a / 

*534o 4643 / 

*5740 6000 / 

*204o 434a / 

*6440 6000 / 

*1740 6000 / 

♦6740 6000 / 



*3043 0405 
*3443 4700 
*3142 4600 
*l75o 6000 

*5042 ASOO 

*3740 Dooo 
*3140 6000 
«265o 6000 



*6i40 
*i34o 
*6240 

*325o 
*7i4o 

*JL340 

*7340 
*7740 



6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 



*3a4o 0077 
*a44o 4343 

♦3540 4342 
*374o 6000 
*434o 4143 
*444o DOoo 
*4540 6000 
*474o 6000 

♦5340 6000 
*554o 6000 
*564o 6000 
*6o4o 60G0 
*6340 6000 
*6540 6000 
*6640 6000 
*7040 6000 



/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 



*00O0 

♦4040 
«1540 
*774o 

*0000 

♦1140 
*334o 
*375o 



6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 



*oooo 6000 
*i640 6000 
♦1440 6000 
*3i5o 6000 
*oooo 6000 
♦1040 6000 
*3340 6000 
*7740 6000 



Csp 


3 


C3 


4 


[1 


5 


[6 


7 


E+ 


B 


EC 


D 


[A 


E 


[F 


G 


E- 


K 


EL 


M 


EJ 


N 


EO 


P 


Eo 


S 


ET 


U 


E/ 


V 


Ew 


X 


E8 


(3,8) 


E^' 


1 


E9 


& 


Et 


(7,8) 


EH 


(+,3,8) 


E, 


) 


EI 


> 


E_ 


-♦ 


E^ 


(-,3,8) 


E 


* 


ER 


? 


E] 


E 


EY 


(0,3,8) 


E, 


( 


Ez 


55 


E(o,6,8) 


(0,7,8) 



3,9063 



o 



n 



O 





R540 










(10) 


= 


(5/724) 




1) 


ioi, 
165, 
315, 


109, 
108, 
136, 


103, 
109, 
108, 


♦6 

0.3 

(6) 




315, 
lai, 
lai, 


136, 
108, 
136, 


103, 

0, 

0, 


(3) 

-1.0 
(8/508) 


a) 
3) 
4) 
5) 


lai, 
121, 

ii3i 
lai, 

131, 


108, 
109, 
109, 

109, 
136, 


0, 

0, 

103, 

0, 

0, 


1.4 

*6 

(1/568) 

(7/508) 


6) 


214. 
165, 

214. 

131, 
131, 


136, 
108, 
136, 
108, 
136, 


104, 

109, 

108, 

0, 

0, 


(9) 

*0001 0000 

(7) 

1.0 

(3) 


7) 


165, 
314» 
131, 
131, 
131, 


108, 
136, 

109, 
108, 
136, 


109, 

108, 

0, 

0, 

0, 


*oooo 3000 

(8) 

3.3 

3,0 
(4) 


8) 


165, 
314, 
131, 
131, 


108, 
136, 
108, 
136, 


109, 
108, 
0, 
0, 


*oooo 4000 

6,0 
(3) 


9> 


131, 
131, 
131, 


108, 
109, 
136, 


0, 
0, 
0, 


-0.4 

(10) 

(7/508) 



CR540 

[TR7 favat testing routine 
[Entry to input master 

[Jump if stopped 

[If M = O set M =i -1,0 

[If M = -1.0, no lam's 

[Stop and disengage 
[Call tape reader P.E.R. 

[Call input master if reader is free 



[If disabled, set M = 1,0 
[Call P.E.R. 



[Reset overdue, stop, disengage 
[M = 3.0 
[Call P.E.R. 



[Tape low, set M = 6.0 
[Call P.E.R, 

[If no fault, set M = -0,4 
[Call input master 



3.9,63 



o 



1) 



a) 



3) 

4> 



5) 



R541 

(10) 

(50) 
(5i) 
(53) 
(6i) 
(6a) 



101, 
lOi, 
101, 

113, 

IS.L, 
101, 
131, 

113» 
113, 

103, 

ai7, 

131, 
131, 
101, 
101, 

137, 
315, 

165, 

133, 
314, 
131, 
131, 
135, 
113, 
315, 

101, 
310, 
310, 
134, 
113, 
113, 
316, 

113, 

131, 
131, 



111, 

115, 

o, 

11.3, 

113, 

114, 

114, 

115, 

114, 

las, 

113, 

117, 
ii6, 

114, 

114, 

135, 

118, 
118, 

135, 
113, 

117, 

114, 
114, 

135, 

114, 

113, 

117, 
114, 

114, 
113, 
135, 
117, 
113, 

135, 



(5/599)9«o 

(50/599) 

(51/599) 

(53/599) 
(61/599) 

(63/599) 



0, 
133, 

111, 

0, 

111, 

113, 
111, 
113, 
111, 
114, 



o, 

115, 
11, 

0, 
114, 

116, 
o, 

118, 

0, 

o, 

116, 
111, 
116, 

111, 

114, 
114, 

o, 

111, 

133, 

113, 
111, 
0, 

o, 



tR54-''- 

CTR7 interruption 

tSubsidiary store address 



*6oo4 3640 


[TR7 number 


(10) 


[Address of private store 


*6oo4 0400 


[Read 


(51) -7 


[M = 


0.4 


[Prepare POLAM 


(63) *7 




Oo4 


[Next address 


(63) *7 




*7 


[Write to buffer 


(6i)*7 




(3) 


[Test buffer full 



0^6*4 

-0.4 

(11/568) 

(5o)*7 

*oo77 mi 

(3) 

*6 

*3 

0,6*4 
0.4 

■^^mi 7763 
(5o)*7 
(5) 

(53)*7 

0,6*4 

4,0 

0.4 

(53) *7 

*6oo4 0400 

(1/500) 

(5i)*7 

(1/568) 

(4/301) 



[POLAM and stop 
[M = -0.4 
[LC/FS table 



[Test last three chajracters 



[Ignore shift changes 

[POLMI and stop 

[M = Oo4 

[Subtract * and add to last tliree 

[Preserve for next time 

[Test parity fault 



[POLAM and stop 
[M =4.0 

[Count of parity faults 

[Exit to M/E unless stopping 

[Set M 

[Call R568 to S.E.R, queue 



2.9063 



o 



a 550 



[Anelex fault testing routine 



V_/ 





(10)= 


(3/514) 






1) 


101, 
165, 
ai5> 
lai, 


106, 

107, 
136, 
136, 


103, 
106, 
107, 
0, 


*6 

0,3 

(3) 

(9/508) 


a) 


ia7» 
101, 

101, 


106, 
108, 
136, 


0, 

106, 

106, 


i»4 
(3) 
(4) 


3) 


-0.4 
1.0 


/ 

/ 


3.0 

1.0 




4> 


(5) 
(6) 


/ 
/ 


(6) 
(6) 




5) 


lai, 
lai, 


109, 
136, 


0, 
0, 


(V553) 
(7/508) 


6) 


131, 

131, 

113, 
121, 


109, 
106, 
106, 
136, 


0, 
0, 

103, 
0, 


(10) 

(7/50S) 



o 



[Testing if stopped 
[Exit if started 

[If stopped 
[Set m 



[No fault 
[Disabled 



Paper low 

Disabled and paper lo?/ 



[Stopped without fault 

[Stopped with fault 
[Stop and disengage 



3«9o63 



O 



R551 



[Anelex Interruption 



o 





(74) 


a 


13.4(5/599) 


[Subsldary address of printer 




(51) 


=: 


(51/599) 






(99) 


~ 


(99/599) 




1) 


101, 


133. 


0, 


*6oo4 3430 






101, 


135, 


133, 


(s) 


- 


3) 


131, 


113, 


0, 


0,7 






113. 


113, 


133, 


*6oo4 1000 


[Put out LAM, stop, and diseng 




101, 


111, 


133, 


(74) 


[Find private store address 




lai, 


114, 


0, 


5oO 






113» 


114, 


111, 


(5i)*7 


[Note overflow 




131, 


113, 


0, 


(3/514) 


[Exit to output master routine 




121, 


135, 


0, 


(4/301) 




4) 


101, 


111, 


133, 


-4.0(74) 


[Private store address 




131, 


113, 


0, 


0.6 






113. 


113, 


133, 


-4.0*6004 1000 


[Put out LAM and stop 




121, 


114, 


0, 


-0,4 






113, 


114, 


111, 


(51) *7 


[Printing finished 




131, 


113, 


0, 


(1/553) 






131, 


135, 


0, 


(4/301) 




2) 


<99) 


/ 


(99) 








<3) 


/ 


(99) 




[Overflow 




(99) 


/ 


(99) 


■■-. 






(99) 


/ 


(99) 








(99) 


/ 


(99) 








<4) 


/ 


(99) 




[Print 




(99) 


/ 


(99) 








(99) 


/ 


(99) 








(1/500) / 


(99) 







3,9»63 



O 



H353 



O 



O 





<56) 


s 


(36/599) 






(62) 


= 


(62/599) 






(51) 


= 


(51/599) 






(50) 


= 


(50/599) 






(61 > 


a 


(61/599) 






(67) 


= 


(67/599) 






(99) 


= 


(99/599) 






(68) 


r3 


(68/599) 




1) 


101, 


102, 


100, 


(56)*7 




104, 


103, 


100, 


(5o)*7 




214, 


126, 


102, 


(1/514) 


2) 


121, 


110, 


0, 


(3> 




121, 


126, 


0, 


(1/520) 


3) 


121, 


110, 


0, 


(4) 




121, 


126, 


0, 


(2/520) 


4) 


101, 


104, 


100, 


(6i)*7 




102, 


104, 


100, 


(67)*7 




101, 


103, 


100, 


(60) *7 


5) 


101, 


105, 


100, 


(56) *7 




124, 


105, 


105, 







124, 


105, 


105, 







121, 


110, 


0, 


(7) 




121, 


126, 


0, 


(1/516) 


7) 


121, 


110, 


0, 


(24) 




210, 


no, 


109, 


(27) 




164, 


110, 


101, 


0.3 




101, 


107, 


101, 


*7 




211, 


126, 


109, 


(2/512) 




121, 


126, 


0, 


(1/512) 


8) 


(9) 


/ 


(10) 






(99) 


/ 


(99) 






(21) 


/ 


(99) 






(20) 


/ 


(20) 






(30) 


/ 


(99) 






(11) 


/ 


(30) 






(99) 


/ 


(32) 






(36) 


/ 


(99) 





CR553.1 

[Anelex printer PER 



[Characters left in present record 
[Add in carriage control character 
[Exit if printing finished 



[Block to cores 
[Sets 101 and lOa 



[Set 104 to available room in buffer 



[V store address 
[Character count 



[Set code conversion parameters 

[Internal code 
[Binary 

[First half word 

[Shift up half word (Int code) 

[ditto (binary) 

[I.S Table/OS, Table 



[Carriage control 



2.9.63 



CR553.3 



O 



O 



ai) 


202, 


126, 


104, 


<22) 




121, 


126, 


0, 


(43) 


22) 


113, 


109. 


103, 


*6 


20) 


124, 


101, 


0, 


0.1 


24) 


203, 


126, 


106, 


<25) 




121, 


106, 


0, 


1.4 




101, 


109, 


101, 


*7 




165, 


107, 


109, 


*0303 0303 




125, 


107, 


0, 







164, 


107, 


109, 


*7474 7474 


25) 


125, 


107, 


0, 







165, 


109, 


107, 


i«oooo 0374 




202, 


126, 


105, 


(2/517) 


19) 


101, 


109, 


100, 


(6a) *7 




214, 


126, 


109, 


2(0) 




113. 


109, 


100, 


(50) *7 


23) 


113, 


105, 


100, 


(56) *7 




121, 


110, 


0, 


2(0) 




121, 


126, 


0, 


(1/518) 




121, 


107, 


0, 


0.1 




113. 


107, 


0, 


3*6 




101, 


107, 


103, 


*6 




311, 


126, 


107, 


(17) 




113, 


0, 


0, 


3*6 




113, 


0, 


100, 


(51) *7 




121, 


110, 


0, 


(1/203) 




121, 


126, 


0, 


(4^523) 


17) 


214, 


126, 


105, 


(1/527) 




121, 


109, 


0, 


*oooo 3030 




121, 


126, 


0, 


(34> 



[Test if 120 characters 
[Go to cause line feed 

[Transfer character to buffer 
[Increase store address . 

[Jump unless beginning half word 



[Character in B I09 

[Convert into Anelex code. Return to 

[ 30, or 31 

[No characters remaining 

[Jump unless first time 
[Marker to clear store and start printcu- 
[Store number of characte:fs remaining 
[ in record, or zero 

[Preserve current shift 
[Inhibit interruptions 



[Jump if engaged 
[Permit interruptions 
[Exit to CO ordinator until 
[ printer engaged 



[Carriage control, retiujn to 

C (30), (32), (36) 

[Set for one line feed 



2,9.63 



O 



o 



o 



(-^ 



CR553.3 

[Binary 

29) li3, 109, 103, *6 [Print character 

IS4, 101, 0, 0*3 

27) 203, 126, 106, (26) 
121, 106, 0, loO 

101, 107, 101, *7 [Read nest half word 

26) 125, ±07, 0» 

>^*3. i07» 0, 

165, XOg, 107, *oooo 0077 [And out character 

U5, iog, 0, o 

163, 109, 0, [Shift character to position for 

163, 109, O, -128 [ printing 

203, 120, 105, (28) [Jump if not end of recoi^d 

121, 126, 0, (19) [Return to print record 

28) 202, 126, 104, (29) [Jump if line not full 
124, 105, O, 0„4 

121, 126, 0, (43) [Go to cause new line 



2,9.63 



1:553.4 



30) 


134, 


101, 


0, 


0.1 


34) 


124, 


109, 


0, 


*oooo 4000 


O ^" 


113. 


109, 


103. 


*6 


113, 


0, 


0, 


3*6 




lai, 


110, 


0, 


3(0) 




314, 


136, 


105, 


(1/531) 


41) 


131, 


110, 


0, 


(43) 




131, 


136, 


0, 


(4/533) 


43) 


131, 


109, 


0, 


1.5 


s 


131, 


135, 


0, 


(i/515) 


35) 


124, 


101, 


0, 


0.1 


36) 


113. 


0, 


0, 


3*6 




lai. 


no, 


0, 


(33) 




131, 


136, 


0, 


(1/531) 


33) 


315 » 


136, 


108, 


(5) 




130, 


104, 


0, 


60 




113» 


104, 


100, 


(67) *7 




Ul, 


no, 


0, 


(1/514) 




131, 


136 j 


0, 


(4/533) 


43) 


101, 


109, 


100, 


(61) *7 




113, 


109, 


100) 


(67) «7 




163, 


105, 


0, 







163, 


105, 


0, 


-0.1 


/-^ 


131, 


136, 


0, 


(33) 


u 

33) 


101, 


108, 


100, 


(5o)*7 




133, 


108, 


0, 


*5 




315, 


136, 


108, 


(35) 




131, 


109, 


0, 


*oooi 0003 




431, 


136, 


0, 


(31) 



[Increase store address 
[End of line 

[Vertical format character 
[Permit interruptions 

[Go to read next separator if at 
[ end of record, 

[Remove reserved block label 
[Disabled, disengaged, and paper out, bit 

[Start printer 



[Permit interruptions 

[Read next separator 

[Return unless final separator 

[Store position along bUffer 



[Exit to output master routine 

[Buffer fiai 

[Restore character count 



[Return unless printer requires starti. 
[Clear core store and stop printer 



3.9.63 



O 



o 



o 



9) (98) / *3000 0000 

*40oo 2340 / *40oo 3640 

*40oo ao^o / *40oo 3320 

*4ooo 3420 / *40oo 2560 

*4ooo 3440 / *40oo 2640 

*40oo 3740 / *4ooo 3040 

*4ooo 2140 / *4ooo 2240 

*4ooo 3340 / (98) 

*40oo 3000 / *2ooo 0000 

*4000 2400 / *4ooo 3300 

«'4ooo 3060 / *40oo 2260 

*4ooo 2460 / *40oo 3140 

*4ooo 3560 / *40oo 3660 

^54000 2760 / *40oo 2o5o 

«4ooo 3160 / *40oo 3260 

f4ooo 2360 / (98) 

'i'4000 3000 / 

S'4000 2660 / 

*40oo 3120 / 

*40oo 3520 / 

*40oo 3600 / 

*4ooo 2000 / 

*4ooo 3200 / 

*4Poo 3400 / 

(90) / 

; *4ooo 2720 / 

\ *4qoo 2160 / 

*4Qoo 3540 / 

*4o,oo 2620 / 

*4qbo 3020 / 

*40oo 2220 / 

<9|) / 

(98) = *40oo 2200 





*40oo 

*40oo 

*40oo 

*40oo 

«4ooo 

*4ooo 

(98) 

o 

*40oo 

*40oo 

*4ooo 

*4ooo 

*4ooo 

*40oo 

(98) 



3440 

2320 
2100 

2700 

3100 

2300 



3500 
3360 
2200 
3720 
2120 
3330 



C553.5 

[Inner set table 

[00 04 

[10 14 

[30 24 

C30 34 

[40 44 

C50 54 

[60 64 

C70 74 



[01 
[11 

[31 

[31 
[41 

[51 
[61 

[71 

[02 

[13 
[22 
[33 

[42 

[53 
[62 

[73 

[03 

CI3 
[33 
C33 
C43 

t53 
[63 

C73 



05 
15 
35 
35 
45 
55 
65 

75 

06 
16 
36 
36 
46 

56 
66 
76 

07 

17 
37 
37 
47 

57 
67 

11 



2,9.63 



O 



o 



10) 



o 









CR553 


.6 








[Outer set table 


(98) 


/ 


*3000 0000 


[00 


04 


(98) 


/ 


(98) 


[10 


H 


(9C) 


/ 


(98) 


[20 


24 


*4ooo 3700 


/ 


*4ooo 2040 


[30 


34 


(98) 


/ 


*4ooo 2640 


[40 


44 


*4ooo 3740 


/ 


*40oo 3040 


[50 


54 


*400o 2140 


/ 


*40oo 2240 


[60 


64 


*40oo 3340 


/ 


(98) 


[70 


74 


*4ooo 3000 


/ 


*2000 0000 


[01 


05 


(98) 


/ 


(98) 


[11 


15 


*40oo 3460 


/ 


(98) 


[21 


25 


(98) 


/ 


*4ooo 2520 


[31 


35 


*4ooo 3560 


/ 


*4ooo 3660 


[41 


45 


*4ooo 2760 


/ 


*40oo 2060 


E51 


55 


*40oo 3160 


/ 


*40oo 3260 


[61 


65 


*40oo 2360 


/ 


(98) 


[71 


75 


(98) 


/ 





[02 


06 


(98) 


/ 


(98) 


[12 


16 


*4ooo 2500 


/ 


*40oo 2600 


[22 


26 


■i'^ooo 2740 


/ 


*40oo 2540 


[32 


3f 


*A000 3600 
*4000 2000 


/ 


*4ooo 2700 


[42 


^5 


/ 


*40oo 3100 


[5a 


56 


*4ooo 3200 


/ 


*40oo 2300 


[62 


66 


«4poo 3400 


/ 


(98) 


[7a 


76 


*40oo 3240 


/ 





[03 


07 


(gS) 


/ 


*4ooo 2420 


[13 


17 


(9S) 


/ 


*4ooo 3620 


[23 


a7 


*4o6o 3760 


/ 


(98) 


1:33 


37 


*40oo 2620 


/ 


*4000 3720 


C43 


47 


*4O0p 3020 


/ 


*400o 2120 


C53 


57 


*4odo 2220 


/ 


«40oo 3320 


[63 


67 


(98) 


/ 


(98) 


173 


77 



2.9.63 



11) 



n 



O 



*0000 

*6ooo 
*6ooo 
*6ooo 

*6ooo 
*6ooo 
*6ooo 
*6ooo 

t6ooo 
*6ooo 
'!!6ooo 
*5ooo 
'j'Gooo 
*6ooo 
*6ooo 
•i-Gooo 



aooo 
3040 

3100 

3140 
3300 
2,340 
3300 

3340 

3000 
3040 

3100 
3140 
3300 
3340 
3300 

«340 



*6ooo 3630 
*6ooo 3640 
*^ooo 3700 
*6ooo 3740 

,*6ooo 3630 
*6ooo 3640 
*6ooo 3700 
*6ooo 3740 



'^'opoo 

*0(^00 
'i'OQOO 

*odoo 

*0000 

*dooo 
*opoo 

*0000 



3000 
3000 

3000 

3000 
3000 
3000 
3000 

3000 



/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

/ 
/ 
/ 
/ 

/ 
/ 
/ 
/ 

/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 



*6ooo 
*6ooo 
*6ooo 
*6ooo 
*6ooo 
*6ooo 
*6ooo 
*6ooo 

*6ooo 
*6ooo 
*6ooo 
*6ooo 
*6ooo 
*6ooo 
*6ooo 
*6ooo 



3030 
3060 
3130 
3160 
3330 
3360 
3330 
3360 

3030 
3060 
3130 
3160 
3330 
3360 
3330 
3360 



*6ooo 3630 
*6ooo 3660 
'i'Cooo 3730 
*6ooo 3760 

*6ooo 3630 
*6ooo 3660 
*6ooo 3730 
*6ooo 3760 



*oooo 
*oooo 
*oooo 

*0000 
*0000 
*0000 
*0000 
*0000 



3000 
3000 
3000 
3000 
3000 
3000 

3000 

3000 



[11553.7 

[Carriage control table 
[0-17 N line feeds O-15 



C30-37, Carriage return and 
C line feed O-15 New Lines, 



[Home on channels I-7 



[Home on channels I-7 



2.9.63 



O 



o 



R 560 
(10) 



(3/514) 



[R 560 

[Creed 3000 fault testing routine 

[Return to master routine 



O 



1) 


101, 


106, 


103, 


*6 




i65» 


107, 


106, 


0,3 




ii4> 


136, 


107, 


(9/508) 




iL65, 


107, 


106, 


1,0 




214, 


136, 


107, 


(3) 




131, 


108, 


0, 


1.0 




iai, 


136, 


0, 


(6) 


3) 


X^S, 


107, 


106, 


3.0 




i?i4, 


136, 


107, 


i4> 




m^ 


108, 


0, 


6.4 




121, 


109, 


0, 


3,3 




131, 


136, 


0, 


(7) 


4> 


165, 


107 > 


106, 


0,4 




314* 


136, 


107, 


(9) 




m, 


108, 


0, 


3.0 


6) 


izi, 


109, 


0, 


0.3 


^> 


ii3» 


109, 


103 > 


*6 


8) 


131, 


109, 


0, 


(10) 




l3i, 


136, 


0, 


(7/508) 


9> 


m, 


108, 


0, 


-0,4 




i3i, 


109, 


0, 


(3/573) 




m. 


136, 


0, 


(7/508) 



[Test stopped 
[Exit if started 



[Disabled, set M = 1.0 



[Check failed, set M = 6,4 
[Reset check failed 



[Tape out, set M = 3,0 
[Stop and disengage 
[Return to master routine 

[Return to P.E.R, 



3.9,63 



O 



o 



R 561 



tR55i 

[Creed 3000 interruption 



1) 



O 



(10) 


= 


(5/599)9.4 


[Subsidiary store address 


(51) 


SS 


(5V599) 




(63) 


_ 


(63/599) 




101, 


133, 


0, 


*6oo4 3560 


[Which Creed 3000 


101, 


111, 


133, 


(10) 


[Find private store 


101, 


113, 


111, 


(63)*7 


[Present address 


131, 


114, 


113, 


0.4 




113, 


114, 


111, 


(6a)*7 


[Next address 


101, 


113, 


113, 


*7 


[Pick up character and POLAM 


113, 


113, 


133, 


*6oo4 1400 


[Send to punch 


137, 


113, 


0, 


o.a 




314, 


135, 


113, 


(1/500) 


[Exit to W^ imless stopping 


131, 


113, 


0, 


-0.4 




113, 


113, 


11, 


(5i)*7 




131, 


113, 


0, 


(1/573) 




131, 


135, 


0, 


(4/301 ) 


[Call P.E.R, to queue 



3o9o63 



O 



o 



1) 



3) 
4) 

5) 
6) 



O 7) 



R565 

(10) 

101, 
165, 

315 » 

815, 
121, 
121, 

121, 
121, 

113» 
lai, 
121, 

214, 

1^7. 
215, 

121, 
121, 
121, 

121, 
121, 
121, 



109, 
108, 
126, 

126, 
108, 
126, 

109, 
108, 
109, 
109, 
126, 

126, 
109, 
126, 

108, 
109, 
126, 

108, 
109, 
126, 



(5/7214) 

102, 
109, 
108, 



0, 

0, 

102, 

0, 

o, 

104, 

o, 

109, 

0, 
0, 
0, 

0, 
o, 

0, 



*6 

0»2 

(5) 



103, (3) 
0, -1.0 
0, (8/508) 



0.3 
1,4 

>!<6 

(1/568) 
(7/508) 

(6) 

*0000 2000 

(7) 

-0.4 

(10) 

(7/508) 

2.0 

2.3 

(4) 



CR565 

[TR5 Fault testing routine 

[Entry address of Input Master Routine 

[V store line 

[Jump if stopped 

[If M = set M = -1,0 



[If M = 

[ 

[ 

[ 



-1.0 
set M = 1,4 
disengage 
and call P.E.R. 



[Call input master if reader is free 

[Jump if overdue 

[Set M = -0,4 
[Call input master 



[If overdue set M = 2.0 
[Reset overdue and disengage 
[Call P.E.R, 



2.9,63 



O 



o 



o 



R566 



[R566 

[T,R,5 Interruption 





(70) 


=: 


*6oo4 3530 


[T,R,5 Look at mes. 




(71) 


s 


(S/599) 




[Subsidiary store adcbcess. 




(7a) 


a 


*6oo4 1600 


tV store address. 




(50) 


= 


(SO/599) 








(51) 


j-j 


(51/599) 








(S3) 


= 


(53/599) 








(61) 


s 


(61/5995 








(6a) 


Z3 


(63/599) 






t) 


101, 


ia3» 


0, 


(70) 


CT.R.5 number. 




101, 


111, 


ia3, 


(71) 


ddress of private store. 




101, 


lis. 


ia3, 


(7a) 


[V store bits. 




113, 


0, 


111, 


(5i)*7 


CM=0 




lai. 


113, 


0, 


0.4 


[Prepare P.G.L.A.M. 




101, 


113, 


111, 


(63)*7 






131, 


114, 


113, 


0.4 


[Next address. 




113, 


114» 


111, 


(63) *7 






113 1 


115, 


113, 


*7 


[Write to buffer. 




103, 


114» 


111, 


(61) *7 




10) 


317, 


laS, 


114, 


(3) 


[If buffer full: 




131, 


113, 


0, 


0,6*4 


[P.G.L.A.M. and stop. 




131, 


117, 


0, 


-0.4 


[M=-0.4 


a) 


101, 


116, 


115, 


(11/568) 


[LC/PS table. 




101, 


ii4» 


111, 


(50) *7 


[Last three characters. 




127, 


114, 


0, 


*oo77 iw 






215, 


laS, 


114, 


(3) 






165, 


118, 


116, 


*6 


[If ending sequence: 




la, 


118, 


0, 


*3 


[Ignore shift changes 




314, 


las, 


118, 


(5) 






131, 


lia, 


0, 


0.6*4 


[P.O*L,A,M, and stop. 




131, 


117, 


0, 


0.4 


[M=0i4 


3) 


las, 


114, 


116, 


""ini 7763 


[Subtract * and add to last three. 




113, 


ii4» 


111, 


(50) *7 


[Preserve for next time. 


5) 


aiS, 


las, 


116, 


(4) 


[If parity fault: 




101, 


114, 


111, 


(53)*7 


[If (53) o^<lS 




310, 


113, 


114, 


0.7*4 


[P.O.L.AoM, Stop and disengage 




aio, 


117, 


114, 


4.0 


[M=4.0 




ia4. 


114* 


0, 


0,4 






ii3» 


114, 


111, 


(53)*7 


[preserve count of fa\ilts. 


4) 


113, 


113, 


ia3. 


(7a) 






3l5, 


las, 


113, 


(1/500) 


[Exit to W/2 unless stopping. 




113 » 


117. 


111, 


(5i)*7 


[Set M, 




131, 


113, 


0, 


(1/568) 


[Call R568 to S.E.R. queue. 




131, 


i^S, 


0, 


(4/aoi) 





o 



a.9.63 



o 



R568 



[R568,i 

ETR5 P.E.R. 







<5i)= 


(51/599) 




1) 

2) 


131, 
131, 
131, 
131, 


110, 
136, 
110, 

136, 


0, 
0, 
0, 
0, 


(3) 

(1/530) 

(3) 

(3/530) 


3) 


131, 
131, 


110, 

136, 


0, 
0, 


(4) 

(3/523) 


4) 


131, 
131, 


110, 

136, 


0, 
0, 


(6) 

(1/516) 


6) 


131, 


110, 


0, 


(7) 




131, 


136, 


0, 


(1/511) 


7) 


317, 

i34. 
134, 
101, 
131, 
164, 
131, 


136, 
105, 
105, 
107, 

110, 
110, 

136, 


105, 
105, 
105, 

101, 

0, 

101, 

0, 


(^) 




*7 
(8) 

0.3 
(1/512) 


8) 


310, 
303, 


136, 
136, 


109, 
106, 


(14) 
(36) 




131, 
131, 
131, 


106, 

107, 
136, 


0, 
0, 
0, 


1.4 


(36) 



[ELock to cores 

[Set reservsd block label 
[ Sets BlOl, B102 

CFind part page 

[ Sets BI03, BI04 

[Set code conversion parameters 
[ Sets Blo8,B109 



[Find store length available, 
[ Sets BI05 
[Go to end if exceeded 



[ current half word 



[Shift next available space to top 
[ end. Sets BI06 



[Jump if binary 

[Jump and set count if in middle of 

[ half word 

[Set count and half word 

[ if at beginning 



2.9.63 



O 



o 



CR568.3 



o 



[BINARY, 



o 



14) 


1557, 


105, 


0, 


='=77777770 




1^-7, 


106, 


0, 


1,0 




303, 


136, 


106, 


(15) 




isi. 


106, 


0, 


1.0 




lai, 


107, 


0, 







121, 


136, 


0, 


(15) 


17) 


101, 


109, 


103, 


*7 




163, 


109, 


0, 







163, 


109, 


0, 







127, 


109, 


0, 


15.7 




135, 


107, 


0, 







135, 


107, 


109, 







203, 


136, 


106, 


(18) 




113, 


107, 


101, 


*7 




121, 


106, 


0, 


1.0 




131, 


107, 


0, 





18) 


124, 


103, 


0, 


0.4 




134, 


101, 


0, 


0e3 


15) 


303, 


136, 


104, 


<l6) 




121, 


136, 


0, 


(30) 


16) 


203, 


136, 


105, 


(17) 




131, 


136, 


0, 


<33) 



[Round down counters 
[Jump if in middle of half word, 
[Set cotint and half word if 
[ at beginning. 



[Single out character 
[ and pack into 
[ half word 



[If half word full, send to 

[ store and reset 

[ count 

[Advance buffer address 

[Advance store address 

[Jump unless buffer empty 

[Exit if empty 

[Jump unless store full 



2,9.63 



CR568,3 



O 



5) 



(10) 


/ 


(11) 


Oo5 


/ 


0.4 


<3i) 


/ 


(.zz) 


feo) 


/ 


(21) 


<S5) 


/ 


(99/599) 



Cue and LS table / LC and PS table 
[IG / OS 

[Ordinary char, / The other set 
[Significant shift / Redundent shift 
[NL or wrong parity / spare 



o 



o 



23) 


1K:5, 


103 1 


0, 


0,4 




134 r 


104, 


0, 


0,4 


ai) 


W/, 


log. 


0, 


7o7 




125, 


107, 


109, 







303, 


136, 


106, 


(34) 




113» 


107, 


101, 


*7 




12; S., 


106, 


0, 


1,4 




l?,i, 


107, 


0, 





24) 


134, 


ICl, 


0, 


0.1 


33) 


134, 


103, 


0, 


0,4 


36) 


303, 


136, 


104, 


(38) 


30) 


101, 


105, 


100, 


(51) *7 




131, 


136, 


0, 


(33) 


38) 


303, 


126, 


105, 


(1/517) 


33) 


165, 


108, 


101, 


0.3 




131, 


110, 


0, 


(34) 




131, 


126, 


0, 


(1/513) 


34) 


113» 


107, 


101, 


*7 




131, 


no. 


0, 


(47) 




316, 


126, 


105, 


(2/519) 




131, 


136, 


0, 


(1/518) 


25) 


315, 


126, 


109, 


(36) 


39) 


131, 


109, 


0, 


*40oo 0077 




131, 


126, 


0, 


(y5i7) 


36) 


127, 


109, 


0, 


7o7 


37) 


125, 


107, 


109, 







113, 


107, 


101, 


*7 




134, 


101, 


0, 


0,1 




134, 


103, 


0, 


0.4 




165, 


108, 


101, 


0*3 




131, 


no. 


0, 


(38) 




131, 


136, 


0, 


(1/513) 


38) 


113> 


107, 


101, 


*7 




101, 


105, 


100, 


(5i)*7 




121, 


110, 


0, 


(6) 




314» 


110, 


104, 


(47) 




131, 


136, 


0, 


(1/519) 


30) 


124» 


105, 


0, 


0,4 




121, 


136, 


0, 


(23) 



[INTERML CODE 

[Step back buffer address, 

[Pick out character, 

[Put into half word. 

[Jvunp unless half word is full, 

[Send to store. 



[Advance main store address. 
[Advance buffer address, 

[Jump if buffer space 

[If buffer finished, find reason for 

[ stopping, 

[ Code conversion if store space, 
[ return to (20) (31) (22) or (25) 



[Write away last half word, 

[Insert separator 

[If buffer full, preserve pajcamotera 

[Jump if end of record, 

[If parity favdt, insert Fault. 



[Insert carriage control character, 
[Write to store, 

[Advance addresses 



[Write away last half word 

[Set return to next character, 
[ unless buffer is empty 
[Insert separator. 



2,9.63 



o 



CR56804 



42) 


121, 


105, 


0, 





[Set M=0 


47) 


121, 

131, 


110, 

126, 


0, 
0, 


(4B) 
(1/523) 


[Remove reserved block label 


48) 
49) 


121, 
124, 
215, 
121, 
121, 


101, 

105, 
126, 
109, 
126, 


105, 

0, 

105, 

0, 
0, 




0.4 
(2/514) 

*oooi 6001 

(1/515) 


[Copy M. 

[Test for -0.4 

[If M ^ -0,4, exit to main program 

[Fault bits TR5, TR7 

[If M=-0.4, start reader. 



o 



209.63 



o 



CR568.5 



10) 



O 




3.1 

0.3*4 



/ 
/ 
/ 
/ 


1.0*5 




1.6*5 


/ 
/ 
/ 
/ 


0,1*1 





0.6*3 


/ 
/ 
/ 
/ 




1.3*5 

1.4*5 




/ 
/ 
/ 

/ 


3.0*4 





3.6*4 


/ 
/ 
/ 
/ 




3.3*5 

3.4*5 




/ 
/ 

/ 
/ 



3.3*4 

3.4*4 




/ 
/ 
/ 

/ 


3.0*4 




3.6*4 


/ 
/ 
/ 
/ 





[FLEXOTOITER UPPER CASE 


0,0*1 


;oooOoOoo 


Fault 





: 010 NL 





[ 100 


Tab 


0.7*3 


[ 110 


Fault 





:oooi,ooo 


(Spare) 


i»3*5 


: 010 


Fault 


1*5*5 


: 100 


Fault 





[ 110 


Pxinch off 





[0010,000 


Sp 


4,0 


: 010 


Fault 


0.3*4 1 


: 100 


Fault 





: 110 


LC 


1.1*5 1 


10011,000 


Fault 


i 


1 010 


(Spare) 


1 


: 100 


Stop 


1.7*4 1 


: 110 


Fault 


o 1 


ioioo.ooo 


Zero 


3.3*4 1 


: 010 


Fault 


3.5*4 1 


: 100 


Fault 


1 


: 110 


6 


3.1*4 f 


ioioi.ooo 


Fault 


1 


; 010 


& 


o 1 


100 


h 


3.7*4 I 


no 


Fault 


3,1*4 I 


0110.000 


Fault 


1 


010 


3 


1 


100 


4 


3.7*4 I 


no 


Fault 


o 1 


0111,000 


8 


3.3*5 I 


010 


Fault 


3.5*4 [ 


100 


Fault 


[ 


no 


- 



0000,001 (Sp^re) 
oil Fault 
101 Fault 
111 UC 

0001.001 Fault 

Oil (Spare) 
101 Punch on 
111 Fault 

0010.001 Fault 
Oil P Throw 
101 B SP, 
111 Fault 

0011,001 (Spare) 
Oil Faiat 
101 Fault 
111 / 

0100,001 Fault 
Oil 3 

101 5 

111 Fault 

0101,001 9 

oil Fault 
101 Fault 
111 . 

0110. OOl 1 

on Fault 
101 Fault 
111 7 

0111,001 Fault 
on 11 
101 + 
111 Fault 



o 



3,9.63 



o 



[R568,6 



O 



3.7*5 
o 



4o6*4 



7.0*4 
o 



7.6*4 

6.0*4 
o 
o 
6,6*4 



7.2'M 

7.4*4 
o 



/ 
/ 
/ 
/ 



/ 

5.3*4 / 

5.4*4 / 

/ 

/ 

4.3*4 / 

4.4*4 / 

o / 

5.0*4 / 

o / 

o / 

5.6*4 / 

o / 

6.3*4 / 

6.4*4 / 

o / 



/ 
/ 
/ 
/ 



/ 
/ 
/ 
/ 

/ 
/ 
/ 
/ 





FLEXOWRITER UPPER CASE 


[ 


1000 000 (Spare) 


4.3*4 t 


010 Fault 


4.5*4 t 


100 Fault 


[ 


110 F 


5.1*4 I 


1001.000 Fault 


[ 


010 J 


i 


100 L 


5-7*4 I 


110 Fault 


4.1*4 i 


1010.000 Fault 


1 


010 B 


1 


: 100 D 


4.7*4 I 


: 110 Fault 


1 


ilOll.OOO H 


5o3*4 I 


: 010 Fault 


5.5*4 1 


; 100 Faxat 


I 


: 110 N 


6.1*4 1 


:il00.000 Fault 


1 


; 010 R 


j 


: 100 T 


6.7*4 1 


: 110 Fault 





1 1101. 000 X 


7.3*4 1 


: 010 Fault 


7.5*4 1 


; 100 Fault 


1 


: 110 (Spare) 





[1110.000 P 


6.3*4 


: 010 Fault 


6,5*4 


: 100 Fault 





: 110 V 


7.1*4 


[1111.000 Fault 





[ 010 Z 





: 100 (Spare) 


7.7*5 


C 110 Fault 



1000.001 Fault 
Oil C 
101 E 
111 Fault 

1001,001 I 

oil Fault 
101 Fault 
111 

1010,001 A 

Oil Fault 
101 Faxat 
111 G 

1011,001 Fault 
Oil K 
101 M . 
Ill Fau^t 

1100.001 Q 

Oil Fault 
101 Fault 
111 W , 

1101,001 Fault 
Oil (Spare) 
101 (Spare) 
111 Fault 



1110,001 Fault 
Oil S 
101 U 
111 Fault 

1111.001 y 

Oil Fault 
101 Fault 
111 Erase 



v^^ 



2.9.63 



o 



CR568.7 



0.7*3 

5^0*4 

4.4*4 

5.4*4 

4d3"4 

5.2*4 
4,6*4 

5.6*4 

4.1*4 
5.1*4 
4.5*4 
5.5*4 
4.3*4 
5.3*4 
4.7*4 
5.7*4 







E5 CHAIINEL LETTERS 




/ 


6,0*4 


[00,000 PS 00,001 


P 


/ 


7.0*4 


[ 010 H Oil 


X 


/ 


6.4*4 


E 100 D 101 


T 


/ 


3»7*4 


C 110 L 111 


• 


/ 


6.2*4 


[01,000 B 01,001 


R 


/ 


7o2*4 


[ 010 J Oil 


Z 


/ 


606*4 


[ 100 P 101 


^ 


/ 


l«3*4 


[ 110 N 111 




/ 


6, 1*4 


[10.000 A 10,001 


Q 


/ 


7.1*4 


[ 010 I Oil 


y 


/ 


6.5*4 


[ 100 E 101 


u 


/ 


1.4*4 


[ 110 M 111 


? 


/ 


6,3*4 


[11,000 C 11.001 


s 


/ 


0,6*3 


[ 010 K Oil 


LS 


/ 


6,7*4 


[ 100 G 101 


w 


/ 


7.7*5 


[ 110 111 


Erase 



o 



3,9.63 



o 



o 



CR568.8 



11) 



o 




2.1 

0.3*4 



/ 

/ 
/ 

/ 


1.0*5 


1.6*5 


/ 
/ 
/ 
/ 


0.1*1 


0.6*3 


/ 
/ 
/ 
/ 




1.2*5 

1.4*5 




/ 
/ 
/ 

/ 


4.0*4 




3.6*5 


/ 
/ 
/ 
/ 




3.0*5 

1.4*4 



/ 
/ 
/ 

/ 



2.2*5 

3.3*4 




/ 
/ 
/ 
/ 


1.0*4 


1,6*4 


/ 

/ 
/ 
/ 





PLEXOWRITliU LOWER CASE 


0.0*1 [ 


0000.000 


Fault 


1 


010 NL 


1 


100 


Tab 


0.7*2 [ 


110 


Fault 


1 


0001.000 


< Spare) 


1.3*5 I 


010 


Fault 


1.5*5 I 


100 


Fault 


{ 


110 


Punch off 


1 


:ooio,ooo 


Sp 


4.0 1 


010 


Fault 


0.3*4 E 


: 100 


Fault 


[ 


: 110 


LC 


1.1*5 I 


: 0011.000 


Fault 


1 


: 010 


(Spare) 


! 


; 100 


Stop 


1.7*5 I 


: 110 


Fault 


1 


loioo.ooo 


t 


3.2*4 1 


: 010 


Fault 


3.4*4 i 


: 100 


Fault 


1 


: 110 


— 


1.1*4 1 


: 0101. 000 


^aiat 





: 010 







: 100 


? 


1.2*4 I 


[ 110 


Fault 


2.1*5 1 


:oiio,ooo 


Fault 





[ 010 


] 





I 100 


> 


2.7*5 


[ 110 


Fault 





ioili.ooo 


( 


1.3*4 


: 010 


Fault 


1.5*4 


: 100 


Fault 





[ 110 


* 



0000,001 (Spare) 
on Fault 
101 Fault 
111 UC 

0001,001 Fault 
Oil (Spare) 
101 Punch on 
111 Fault 

0010,001 Fault 
Oil P.Thi 
101 BSp ; 
111 Fault 

0011,001 (Spare) 
Oil Fault 
101 Fault 
111 ! 

0100,001 Fault 
Oil > 
101 = 
111 Fault 

0101,001 ) 

Oil Fault 

101 Fault 

111 , 

0100,001 C 

Oil Fault 

101 Fault 

111 -♦ 

0101,001 ^ault 
Oil 

101 & 

111 Fault 



o 



2,9.63 



[R568.9 



O 



4.0*5 




4.6*5 


/ 
/ 
/ 
/ 


1 
4.3*5 1 
4.5*5 1 
I 


:fLEXOWRIT33R LOWER CASE 
11000.000 (Spare) 
: 010 Fault 
: 100 Fault 
: 110 f 


1000,001 

on 

101 
111 


Fault 

C 

e 

Fault 




5.2*5 
5.4*5 




/ 
/ 
/ 
/ 


5.1*5 1 
i 
i 
5.7*5 1 


;iooi,ooo Fault 

: 010 j 
: 100 1 

: 110 Fault 


1001,001 
Oil 
101 
111 


i 

Faidt 
Fault 





4.2*5 

4.4*5 



/ 
/ 
/ 
/ 


4.1*5 I 
1 
1 
4.7*5 1 


:ioio.ooo 

: 010 
; 100 
: 110 


Fault 
b 
d 
Fault 


1010.001 

on 
101 
111 


a 

Fault 

Fault 

g 


5.0*5 


5.6*5 


/ 
/ 
/ 

/ 


1 
5.3*5 i 

5.5*5 i 

j 


:ioii.ooo 
: 010 
: 100 
: no 


h 

Fault 
Fault 
n 


1011.001 
on 
101 
in 


Fault 
k 
in 
Fault 



6.3*5 

6.4*5 



/ 
/ 
/ 
/ 


6.1*5 1 

1 
1 
6.7*5 1 


; 1100. 000 
: 010 
: 100 
: 110 


Fault 

V 

t 
Fault 


1100,001 
on 
101 
111 


q 

Fault 
Fault 
w 


7.0*5 



7.6*5 


/ 
/ 

/ 
/ 




7.3*5 1 
7.5*5 i 

1 


IllOl.OOO 

: 010 
: 100 
: no 


X 

Fault 
Fault 
(Spare) 


1101.001 Fault 
on (Spare) 
101 (Spare) 
111 Fault 


6.0*5 


6.6*5 


/ 
/ 
/ 
/ 


1 

6.3*5 i 
6.5*5 1 
1 


iiiio.ooo 

: 010 
: 100 
: no 


P 

Fault 
Fault 
u 


1110.001 

on 

101 
111 


Fault 
3 
u 
Fault 



7.2*5 

7.4*5 



/ 
/ 
/ 
/ 


7,1*5 1 

1 
1 
7.7*5 1 


:nii.ooo 

: 010 
; 100 
: no 


Fault 
z 

(Spare) 
Fault 


1111.001 

on 
101 
m 


y 

Fault 
Fault 
Erase 



2.9.63 



o 



o 



[U568.10 



o 









5 CHANNEL 


FIGURES 


0.7*3 
3.0*4 
3.4*4 
3.1*5 


/ 

/ 
/ 
/ 


3,0*4 1 
3,0*5 [ 

3.3*5 I 
3.7*4 I 


00,000 FS 

010 8 
100 4 
no 5= 


00,001 Zero 

on p 

101 -> 

111 . 


3.3*4 

3.4*4 
1.1*4 
0,1*1 


/ 
/ 
/ 
/ 


3.4*5 I 

3.5*4 1 
3.6*4 1 
3.0 1 


:01.000 3 
: 010 =: 

: 100 ) 
: no Sp 


01,001 > 

on T 
101 6 

111 CR 


3.1*4 

3.5*5 

1,0*4 
0,1 


/ 

/ 
/ 
/ 


3=3*4 

3.1*4 

3.5*4 
4.0*4 


[10,000 1 
[ 010 j6 
[ 100 ( 

[ no LP 


10.001 > 

on 9 
101 5 

111 ' 


1.6*4 
3,6*4 

3,7*4 
1,3*4 


/ 
/ 
/ 
/ 


3.3*4 
0.6*3 

1.7*4 
7.7*5 


[11.000 * 

: 010 - 
: 100 7 

C no , 


11,001 3 
on LS 

101 / 
111 Erase 



2,9.63 



o 



o 



CR570 



O 





(10)= 


0/514) 






1) 


101, 

165, 
ai5, 
lai, 


106, 
107, 
136, 
ia6, 


10a, 
106, 
107, 
0, 


*6 
o.a 
(a) 
<9/5o8) 


z) 


ia7. 
101, 
101, 


106, 
108, 
ia6, 


0, 

106, 

106, 


1.4 
(3) 
<4) 


3) 


-0.4 
1.0 


/ 

/ 


3.0 
1.0 




4) 


(5) 
(6) 


/ 

/ 


(6) 
(6) 




5) 


121, 
lai, 


109, 
ia6, 


0, 
0, 


<43/573) 
<7/5o8) 


6) 


lai, 
lai, 

113, 
lai, 


109, 
106, 
106, 
ia6, 


0, 
0, 

10a, 
0, 


(10) 
0.3 

(7/508) 



[Teletype fault testing routine 
[Return to Master Routine 

[Test stopped 

[Exit if started 

[If stopped: 

[Set M 

[Set address 



[No fault / Paper out 

[Disabled / Disabled and paper out 



[Stopped without fault 



[Stopped with fault 
[Stop and disengage 



2.9.63 






o 



CR571 



R571 



1) 



3) 



(74) 


= 


(5/5 


(fiz) 


S3 


(63/ 


(51) 


=3 


(51/ 


101, 


133, 


0, 


101, 


111, 


133, 


101, 


113, 


Hi, 


1?,1, 


114, 


113, 


113, 


114, 


111, 


101, 


113, 


113, 


113, 


113, 


133, 


137. 


113, 


0, 


314, 


1«3, 


113, 


131, 


113, 


0, 


113, 


113, 


111, 


131, 


113, 


0, 


131, 


125, 


0, 



*6oo4 3500 

(74) 
(63)*7 

0,4 

(63)*7 
*^ 

*6oo4 300 

0,3 

(1/500) 

-0,4 

(5i)*7 
(1/573) 

(4/201) 



[Teletype Interruption 
[Teletypes - ^ 

[Subsidiary store address of 
[ teletype 



[Which teletype 
[Find private store 
[Address of this character 
[Address of next character 

[Pick up character and POLMI 

[Send to punch 

[Exit to W^ unless stopping 



[Call P.E.R, to queue 



o 



2*9.63 



o 



CR573.1 



O 



^573 



[Teletype punch P.E.R. 



O 





(50)= 


•(50/599) 








(56)=:(56/599) 








(6o)= (60/599) 








(6a)= 


'(63/599) 








(99)= 


'(99/599) 








(17)= 


=(9) 








(18)= 


'(10) 








(19)= 


'(11) 






1) 


101, 


lOi?, 


100, 


(56) *7 




104, 


103, 


100 J 


(5o)*7 




314, 


136, 


10?i, 


(1/514) 


a) 


if^i, 


110, 


0, 


(3) 




lai, 


ia6, 


0, 


(1/520) 


3) 


la.t, 


110, 


0, 


(4) 




131, 


136, 


0, 


(3/530) 


4) 


131, 


no, 


0, 


(5) 




±Z1, 


136, 


0, 


(1/533) 


5) 


101, 


105, 


100, 


(56) *7 




134, 


105, 


105, 







134, 


105, 


105, 







131, 


110, 


0, 


(7) 




131, 


136, 


0, 


(1/516) 


7> 


131, 


110, 


0, 


(34) 




310, 


110, 


109, 


(37) 




164, 


110, 


101, 


0.3 




101, 


107, 


101, 


*7 




311, 


136, 


109, 


(3/513) 




131, 


136, 


0, 


(1/513) 



[Characters left in present record 
[Add in carriage control character 
[Exit if printing finished. 



[Block to cores* 

[Set reserved block label 
[ Sets BlOl, B102 

[Find output buffer. 
[ Sets BI03, BI04. 
[Character count 



[Set code conversion parameters 
[ Sets 3108, BI09 
[Internal code 
[Binary 

[First half word 

[Shift up half word (Int. code) 

[Ditto (Binary) 



O 



3.9.63 



o 



[RSJ'S.a 



8) 



13) 



16) 



o 



(9) 




/ 


(10) 




C7 liole tables, 


*0000 


0344 


/ 


*0000 


1304 


cue + POLAM / LC + POLAM 


(31) 




/ 


(33) 






(30) 




/ 


(30) 






(99) 




/ 


(99) 






(11) 




/ 


(31) 




C7 holo carriage control 


(31) 




/ 


(33) 






(36) 




/ 


(99) 






(13) 




/ 


(14) 




[5 hole tables 


*0000 


0004 


/ 


*0000 


1544 


[FS + POLAM / LS + POLAM 


(31) 




/ 


(33) 






(30) 




/ 


(30) 






(99) 




/ 


(99) 






(15) 




/ 


(31) 




[5 hole carriage control 


(31) 




/ 


(33) 






(36) 




/ 


(99) 






(17) 




/ 


(18) 




[Teletype tables 







/ 









(31) 




/ 


(33) 






(30) 




/ 


(30) 






(99) 




/ 


(99) 






(19) 




/ 


(31) 






(31) 




/ 


(33) 






(36) 




/ 


(99) 







3,9^63 



o 



o 



o 



30) 


134, 


104, 
130, 


0, 


0.4 




131, 


0, 


(33) 


ai) 


113, 


109, 


103, 


*7 




134, 


103 » 


0, 


0.4 


33) 


134, 


101, 


0, 


Ool 


24) 


303, 


136, 


106, 


(35) 




131, 


106, 


0, 


1,4 




101, 


109, 


101, 


*7 




165, 


107, 


109, 


*0303 0303 




135, 


107, 


0, 







164, 


107, 


109, 


*7474 7474 


35) 


135, 


107, 


0, 







165, 


109, 


107, 


*oooo 0374 




303, 


136, 


105, 


(38) 




113, 


0, 


100, 


(56) *7 




131, 


110, 


0, 


(34) 




131, 


136, 


0, 


(1/518) 


33? 


113, 


109, 


103, 


*7 




134, 


103, 


0, 


0.4 




165, 


109, 


107, 


*oooo 0374 


38) 


303, 


136, 


104, 


(3/517) 


39) 


163, 


105, 


0, 







163, 


105, 


0, 


-0,1 




113» 


105, 


100, 


(56) *7 




131, 


110, 


0, 


(40) 




131, 


136, 


0, 


(1/518) 



CR573.3 

[Restore bviffer address 



[Put in buffer 

[Advance main store address 

[Jump unless beginning half wopd 



[Character in BI09 
[Go to see if room in buffer 
[If no characters remaining: 
[Clear character count 
[Preserve current shift 



[Put in buffer 

[Pick out same character again 

[Jump provided there is buffer space 

[If not, restore BI05, adding 

[ 0,1 back to coimt 

[Preserve remaining character coimt 

[Preserve cvirrent shift and 

[ start punch 



O 



5^) 


135, 


109, 


0, 


1.0 




163, 


109, 


0, 







113, 


109, 


103, 


*7 




134, 


103 » 


0, 


0,4 




134, 


101, 


0, 


0.3 


37) 


303, 


136, 


106, 


(53) 




101, 


107, 


101, 


*7 




121, 


106, 


0, 


1,0 


53) 


135, 


107, 


0, 







135 » 


107, 


0, 







165, 


109, 


107, 


*oooo 0177 




303, 


136, 


105, 


(53) 




113, 


0, 


100, 


(56) *7 




101, 


109, 


100, 


(5o)*7 




314, 


136, 


109, 


(36) 




131, 


136, 


0, 


(33) 


53) 


303, 


136, 


104, 


(51) 




134, 


105 » 


0, 


0,4 




131, 


136, 


0, 


(39) 



[BINARY 

[Shift up 5 places and add iij 
[ POLAM 
[Put in buffer 
[Advance buffer address 
[Advance main store address 

[Jump if 3nd, character 
[Read next half word 



[And out character 

[No characters remaining 

[If no carriage control character 

[Jump if buffer space 



2.9.63 



CR573.4 



O 



O 



31) 


113> 
ia4» 


109, 
103, 


103, 

0, 


*7 
0.4 


34) 


:303, 


136, 


104, 


(1/537) 




131, 


126, 


0, 


(40) 


33) 

36) 
33) 


134» 

134, 

lai, 

131, 
313, 


101, 
104, 
110, 

136, 
136, 


0, 
0, 
0, 
0, 

108, 


0.1 

0.4 

(33) 

(1/531) 

(5) 


40) 


131, 
103, 
131, 
317, 


104, 
104, 

110, 

136, 


103, 

100, 
0, 

104, 


-0.4 
(6o)«7 

(1/514) 
(1/533) 




131, 
101, 
167, 

113 » 


104, 
109, 
109, 
109, 


103, 
104, 

0, 

104, 


-0.4 

*7 
0.2 

*7 


4^) 


131, 
131, 
131, 
131, 


110, 

136, 
109, 
136, 


0, 
0, 
0, 
0, 


(43) 
(1/533) 

1.5 
(1/513) 


43) 


131, 
131, 


109, 
136, 


0, 
0, 


1,5 
(3/515) 



[Present character to buffer 
[Advance buffer address 

[Jump provided there is buffer 
[ Return to (3I), (32) or(36) 
[If none, go to print 



[Read next separator 

[Repeat, unless final separator 



[Address of previous character 

[If no character to print, 
[ remove reserved block 
[ nximber and return to 
[ master routine. 

[ 

[Put stop bit on last character 



[Remove reserved block number. 
[Disabled and disengaged bits 
[Start punch 

[Return from fault testing 



2.9.63 



O 



o 



9) 



o 









CR573.5 












C INNER SET 7 HOLE TABLE 


*iooo 0044 


/ 


*3ooo 0000 


E 00 


/ 


04 


*5ooo 3404 


/ 


*5ooo 2604 


C 10 


/ 


14 


*40oo 3004 


/ 


*4ooo 3204 


C 20 


/ 


24 


*4ooo 3404 


/ 


*5ooo 2344 


c 30 


/ 


34 


*5ooo 2004 


/ 


*40oo 5204 


C 40 


/ 


44 


*40(X) 5404 


/ 


*400o 4604 
*4000 6204 


c 50 


/ 


54 


^4000 7004 


/ 


[ 60 


/ 


64 


*40oo 6404 


/ 


*40oo 7604 


c 70 


/ 


74 


*looo 1004 


/ 


*2000 OOCX) 


C 01 


/ 


05 


*5ooo 3444 


/ 


*5ooo 3644 


C 11 


/ 


15 


*40oo 30/^4 


/ 


*4ooo 2344 


C 21 


/ 


35 


*4ooo 2444 


/ 


*4ooo 3644 


c 31 


/ 


35 


*4ooo 50^4 


/ 


*40oo 4344 


C 4i 


/ 


45 


*4000 M^/\ 

*40oo 0044 


/ 
/ 


*4ooo 56/^4 
*40oo 7244 


C 61 


/ 
/ 


1^ 
65 


*4ooo 5'/}/! 4 


/ 


*40oo 6644 


C 7i 


/ 


75 


*iooo 0304 


/ 


*5ooo 1304 


C 03 


/ 


06 


*5ooo Z744 


/ 


*5ooo 3704 


C 12 


/ 


16 


*4ooo 3104 


/ 


*40oo 2304 


C 22 


/ 


26 


*5ooo 2144 


/ 


*40oo 3704 


c 3a 


/ 


36 


*4ooo 5104 


/ 


*4ooo 4304 


c 43 


/ 


^ 


*4ooo 4504 
*4ooo DI04 


/ 


*40oo 5704 


c 53 


/ 


56 


/ 


*4ooo 7304 


E 62 


/ 


66 


*4ooo 7504 


/ 


*40oo 6704 


E 73 


/ 


76 


*looo 1244 


/ 


*40oo 0344 


C 03 


/ 


07 


*5ooo 3544 


/ 


*4ooo 1744 


C 13 


/ 


17 


*40oo 3144 


/ 


*4ooo 3344 


E 33 


/ 


27 


*5ooo 3304 


/ 


*4ooo 2744 


[ 33 


/ 


37 


*40oo 4144 


/ 


*4ooo 5344 


t 43 


/ 


47 


>!'400o 5544 


/ 


*4ooo 4744 
«40oo 534 


C 53 


/ 


P 


*4ooo 7144 


/ 


E 63 


/ 


67 


*4ooo 6544 


/ 


(98) 


[T 73 


/ 


77 


(98) « 


*4ooo 374/]. 


[Not printable 





o 



2,9,63 



O "" 



o 









R573.6 










OUTER SET 


7 HOLE TABLE, 


*looo 00^4 


/ 


«3ooo 0000 [ 


00 / 


04 


*looo 1444 


/ 


*iooo 1604 [ 


10 


14 


<9B) 


/ 


(98) ^ C 


30 


34 


i«5ooo 2304 


/ 


*40oo 3604 E 


30 


34 


*5ooo 4004 


/ 


'i'Sooo 5204 [ 


40 


44 


*5ooo 5404 


/ 


*5ooo 4604 [ 
*5ooo 0304 [ 


50 


^4 


*5ooo 7004 


/ 


60 


64 


*5ooo 6404 


/ 


*5ooo 7604 1 


70 


74 


*iooo 1004 


/ 


*aooo 0000 1 


01 


05 


*looo 1444 


/ 


*iooo 0644 [ 


11 


15 


':«5ooo 3044 


/ 


(98) [ 


ai 


35 


(98) 


/ 


(98) [ 


31 


35 


*5ooo 50.^4 


/ 


*5ooo 4244 1 


: 41 


AS 


*5ooo 4444 
*5ooo 60^4 


/ 


*5ooo 5644 1 


• 5^ 


^A 


/ 


*5ooo 7344 I 


: 61 


65 


*5ooo 7444 


/ 


*5ooo 6644 1 


: 71 


75 


(98) 


/ 


*5ooo 1304 1 


: 03 


06 


*looo 1504 


/ 


*looo 0704 


: 13 


16 


*5ooo 3104 


/ 


*5ooo 3304 1 


: 3 


36 


*40oo ^504 


/ 


(98) 


[ 33 


3^ 


*5ooo 5104 


/ 


*5ooo 4304 


[ 43 


it 


*5ooo 4504 
*5ooo 6104 


/ 


*5ooo 5704 


c 52 


^ 


/ 


*5ooo 7304 


C 63 


66 


*5ooo 7504 


/ 


*5ooo 6704 


C 7a 


76 


(98) 


/ 


*4ooo 0344 


[ 03 


07 


*looo 0544 


/ 


*5ooo 1744 


C 13 


17 


(98) 


/ 


*5ooo 3344 


c 33 


27 


*40oo 3544 


/ 


*4ooo 4004 


C 33 


37 


*5ooo 4144 


/ 


45000 5344 


C 43 


47 


*5ooo 5544 


/ 


*5ooo 4744 
*5ooo 6344 


t 53 


57 


*5ooo 7144 


/ 


C 63 


67 


*5ooo 6544 


/ 


*iooo 7744 


I 73 


11 



2.9.63 



o 



o 



11) 



o 
*6ooi 0104 
*6oo3 0104 
*6oo5 0104 
*6oo7 0104 
*6oii 0104 
*6oi3 0104 
*6oi5 0104 



*5o3l 0104 
*6o33 0104 
*6o35 0104 
*6oa7 0104 
*6o3i 0104 
*6o33 0104 
*6o35 0104 



O 



*6ooo 
*6ooo 
*6ooo 
*6ooo 
*6ocx) 
*6ooo 
*6ooo 
*6ooo 



1144 
1144 
1144 
1144 
1144 

1144 
1144 
1144 



o 

o 
o 
o 
o 
o 
o 



/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 



*6ooo 0104 
*6oo3 0104 
*6oo4 0104 
*6oo6 0104 
*6oio 0104 
*6oia 0104 
*6oi4 0104 
*6oi6 0104 

*6ooo 0104 
*6ozz 0104 
*6oa4 0104 
*6o3D 0104 
*6o3o 0104 
*6o33 0104 
*6o34 0104 
*6o36 0104 

*6ooo 1144 
*6ooo 1144 
*6ooo 1144 
*6ooo 1144 
«6ooo 1144 
*6ooo 1144 
*6ooo 1144 
*6ooo 1144 

o 
o 
o 
o 
o 
o 



o 



R573.7 

CARRIAGE CONTROL, 7 HOLE TABUS. 



00 
03 
0^ 



10 

la 

14 
16 

30 
aa 
a4 
a5 

30 
33 



4a 

45 

50 
53 
54 
56 



6^ 
6( 



/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 



40 / 



/ 
/ 
/ 
/ 
/ 
/ 
/ 



60 / 
6a / 



/ 
/ 



70 / 
7a / 



/ 
/ 



01 
03 

05 
07 

11 
13 
15 
17 

ai 
33 
34 
37 
31 
33 
35 
37 

41 

43 
45 
47 
51 
53 
55 
57 

61 

I 

67 
71 
73 
75 

77 



3.9, 63 



O 



o 



13) 



o 













CR573.8 














[INNER SET 5 HOLE 


TART.R 


(97) 




/ 


*30oo 


0000 


[00 


04 




*4ooo 1204 


/ 


*5ooo 


i344 


[10 


14 




*4ooo 


0044 


/ 


*4ooo 


oj?o4 


[30 


24 




*4000 


0104 


/ 


*4ooo 


0504 


[30 


34 




*4ooo 


1344 


/ 


*5ooo 


0304 


[40 


44 




*5ooo 


0104 


/ 


*5ooo 


0304 


[50 


54 




*5ooo 


0044 


/ 


*5ooo 


0244 


[60 


64 




*5ooo 


0144 


/ 


(97) 




E70 


74 




*4ooo 


0704 


/ 


*2000 


0000 


[01 


05 




*4000 


0S04 


/ 


(97) 




[11 


15 




*40oo 


1004 


/ 


*4ooo 


1344 


[31 


35 




*4ooo 


1144 


/ 


*40oo 


0544 


[31 


35 




*5ooo 


1004 


/ 


*5ooo 


1304 


[41 


45 




*5ooo 


1104 


/ 


*5ooo 


1304 


[51 


55 




*5ooo 


1044 


/ 


*5ooo 


1344 


[61 


65 




*5ooo 


1144 


/ 


(97) 




[71 


75 




*40oo 


0704 


/ 


*5ooo 


1544 


[02 


06 




*40oo 


1704 


/ 


*40oo 


1404 
0644 


[12 


16 




*4ooo 


0404 


/ 


*40oo 


[32 


36 




(97) 




/ 


*4ooo 


1504 


[33 


36 




*5ooo 


0404 


/ 


*5ooo 


0604 


[43 


46 




*3ooo 


0504 


/ 


*5ooo 


0704 


[S2 


56 




*5ooo 


0444 


/ 


*5ooo 


0644 


[62 


66 




*5ooo 


0544 


/ 


(97) 




[73 


76 




(97) 




/ 


*4ooo 


0004 


[03 


07 




*5ooo 


0744 


/ 


*40oo 


1644 


[13 


17 




*4ooo 


1444 


/ 


*4ooo 


1604 


[33 


37 




*4ooo 


104^ 


/ 


*1000 


0344 


C33 


37 




*5ooo 


1404 


/ 


*5ooo 


1604 


1:43 


47 




*5ooo 


1504 


/ 


*5ooo 


1704 


[53 


57 




*5ooo 


1444 


/ 


*5ooo 


1644 


[63 


67 




(97) 




/ 


(97) 




C73 


11 




(97) 




=: 


«1000 


0344 


[Not printable 





o 



2.9.63 



CR573*9 



O 



14) 



U 



(97) 


/ 


(97) 


/ 


*4ooo 014J, 


/ 


(97) 


/ 


(97) 


/ 


*5ooo 0104 


/ 


*5ooo 004^ 


/ 


*5ooo 0144. 


/ 


*4ooo 0704 


/ 


(97) 


/ 


(97) 


/ 


*4ooo 0304 


/ 


*5ooo ioo4 


/ 


*5ooo 1104 


/ 


*5ooo 1044 


/ 


*5ooo 1L!|4 


/ 


(97) 


/ 


(97) 


/ 


(97) 


/ 


(97) 


/ 


*5ooo 0404 


/ 


*5ooo 0504 


/ 


*5ooo ot\/i/\ 


/ 


*5ooo 0544 


/ 


(97) 


/ 


(97) 


/ 


*4ooo 0344 


/ 


(97) 


/ 


*5ooo 1404 


/ 


*5ooo 1504 


/ 


*5ooo 14:14 


/ 


(97) 


/ 





[OUraiR SET, 


5 HOLE TABLE 


*30oo 0000 


[00 / 04 




(97) 


[10 / 14 




*4ooo 04^1 


[30 / 34 




(97) 


E30 / 34 




*5ooo 0304 


[40 / 44 




*5ooo 0304 


CSo / 54 




*5ooo 03/14 


[60 / 64 




(97) 


[70 / 74 




*3000 0000 


toi / 05 




(97) 


[i-t / 15 




*40oo 1104 


[31 / 35 




(97) 


E31 / 35 




*5ooo 1304 


[41/ 45 




*5ooo 1304 


1:51 / 55 




*5ooo 13^ 


[61 / 65 




(97) 


C71 / 75 




*5ooo 1544 


[03/06 




(97) 


[13 / 16 




(97) 


[33 / 36 




(97) 


[33 / 36 




*5ooo 0604 


[43 / 46 




*5ooo 0704 


[53 / 56 




*5ooo 0644 


[63/66 




(97) 


[73 / 76 




*4ooo 0004 


[03 / 07 




(97) 


[13 / 17 




(97) 


[33 / 37 




(97) 


C33 / 37 




*5ooo 1604 


1:43/ 47 




*5ooo 1704 


1:53 / 57 




*5ooo 1644 


[63/ 67 




*iooo 1744 


C73 / 77 





3,9.63 



o 



r 



o 



573. io 

CARRIAGE CONTROL, 5 HOLE TABLE. 



15) 



O 






/ 


*200O 1304 


*aooi 1304 


/ 


*aooa 1304 


*aoo3 1304 


/ 


^aooA 1304 
*aoo6 1304 


*3oo5 1304 


/ 


*aoo7 1304 


/ 


*aoio 1304 


*20ii 1304 


/ 


*30ia 1304 


*2oi3 1304 


/ 


*aoi4 1304 


*aoi5 1304 


/ 


*3oi6 1304 


*aooo 0744 


/ 


*aooi 0744 


*aooa 0744 


/ 


*3003 0744 


*aoo4 0744 
*aooo 0744 


/ 


1=3005 0744 


/ 


*aoo7 0744 


*aoio 0744 


/ 


*3011 0744 


*aoi3 0744 


/ 


*aoi3 0744 


*aoi4 0744 
*aoi6 0744 


/ 


*30i3 0744 


/ 


*3oi7 0744 


*aooo 1304 


/ 


*3000 1304 


*aooo 1304 


/ 


*aooo 1304 


*aooo 1304 


/ 


*aooo 1304 


*aooo 1304 


/ 


*3ooo 1304 


*304o 0744 


/ 


^3041 0744 


*ao4a 0744 


/ 


*ao43 0744 


*ao44 0744 
*304D 07/14 


/ 


*3045 0744 


/ 


*3047 0744 





/ 








/ 








/ 








/ 








/ 








/ 








/ 








/ 






00 


/ 


01 


03 


/ 


03 


2 


/ 


05 


/ 


07 


10 


/ 


11 


la 


/ 


13 


14 


/ 


15 


16 


/ 


17 


30 


/ 


,551 


33 


/ 


23 


34 


/ 


35 


30 


/ 


37 


30 


/ 


31 


33 


/ 


33 


34 


/ 


35 


36 


/ 


37 


40 


/ 


41 


43 


/ 


43 


t 


/ 
/ 


45 
47 


50 


/ 


51 


5a 


/ 


53 


3^ 


/ 


55 


56 


/ 


57 


60 


/ 


61 


63 


/ 


63 


% 


/ 

/ 


5s 
67 


70 


/ 


7i 


73 


/ 


73 


H 


/ 


75 


il 


/ 


17 



2.9.63 



R575 



[Card p\mch fault testing 



o 





(63) 


3 


(63/599) 




<6o) 


= 


(60/599) 




(65) 


= 


(65/599) 




(68) 


a 


(68/599) 


1) 


101, 


106, 


103, 


*6 




165, 


107, 


106, 


0,3 




3J.4, 


136, 


107, 


(9/508) 




131, 


no, 


0, 


(7/508) 




131, 


109, 


0, 


(3/514) 




165, 


108, 


106, 


*ooo4 0000 




214. 


136, 


108, 


(6) 




131, 


108, 


0, 


loO 




131, 


136, 


0, 


(3) 


6) 


165, 


108, 


106, 


*0003 0000 




314, 


136, 


108, 


(5) 




131, 


107, 


0, 


*ooo4 0003 




131, 


108, 


Oi 


3.0 




131, 


136, 


0, 


<4) 


5) 


165, 


108, 


106, 


*0010 0000 




314, 


136, 


108, 


(7) 


2) 


131, 


108, 


0, 


3.4 




131, 


136, 


0, 


(3) 


7) 


131, 


109, 


0, 


(47/579) 




131, 


136, 


0, 


(7/508) 


15) 


101, 


106, 


100, 


(65)*7 




133, 


106, 


0, 


0.4 
(16) 




315, 


136, 


106, 




131, 


no, 


0, 


(3/514) 




101, 


103, 


100, 


(68)*7 


3) 


131, 


107, 


0, 


0.3 


4) 


113» 


107, 


103, 


*6 


13) 


101, 


106, 


100, 


(63)*7 




165, 


107, 


106, 


'^yyy? 7776 


la) 


133, 


107, 


0, 


3.0 




101, 


106, 


107, 


*7 




137, 


106, 


0, 


*oooo 7777 




314, 


136, 


106, 


(13) 




134, 


107, 


0, 


3.0 




113 » 


lojr. 


100, 


(63) *7 


14) 


131, 


136, 


no, 





i6) 


134, 


106, 


0, 


0.5 




113» 


106, 


100, 


(65) *7 




131, 


no. 


0, 


3(0) 




131, 


136, 


0, 


(13) 




133, 


107, 


0, 


36,0 




113, 


107, 


100, 


(63) *7 




131, 


136, 


0, 


(48/579) 



[Exit if started 



[Disabled M = 1.0 



[Put out overdue, atop and disengage 
[Overdue, Ma 3.0 



[Out of cards, M= 3,4 

[No fault 

[Read number of check falls 
[Jump if cards to be repunched 

[Stop and disengage punch 

[Alter (63) to beginning 
[ of present card 



[Count of check fails 



[Reset to beginning 
[ of previous card 



2,9.63 



R576 



[Card punch. Punch Row Interrupt Ion 



o 



o 





(7a)=*6 


004 2300 








(7o)=*6oo4 3460 








<7S)=(5/599>io»4 






(6a)=(6a/599) 








<99)= (99/599) 






1) 


101, 


1^3. 


0, 


<7o) 




165, 


115, 


123, 


loO 




101, 


135, 


123, 


(3) 


3) 


<V578> 




/ 


(99) 




(99) 




/ 


(99) 




<3) 




/ 


(qg) 




<99) 




/ 


(99> 




<i/577) 




/ 


<99) 




C99) 




/ 


<99> 




(99) 




/ 


(99) 




(99) 




/ 


(99) 




< 1/500) 




/ 


(99) 


3) 


101, 


111, 


133, 


(78)-2.o 


5) 


101, 


113, 


111, 


(62)*7 




lai, 


114» 


113, 


2.0 




113, 


114> 


111, 


(63)*7 




101, 


112, 


113, 


*7 




165, 


114, 


113, 


6,0 




113. 


113, 


133, 


-2.0(72) 




101, 


113, 


113, 


0,4*7 




113, 


113, 


133, 


2.0(72) 




101, 


112, 


113, 


1.0*7 




113, 


112, 


133, 


6.0(72) 




101, 


112, 


113, 


1.4*7 




113, 


112, 


133, 


10,0(73) 




lai, 


116, 


0, 


0.4 




ii3» 


li6, 


133, 


-3.0(73) 




ai4» 


125, 


114, 


(1/300) 




113 » 


113, 


111, 


(62)*7 




lai, 


135, 


0, 


(14/578) 



[V-store address 
[L.AeM. for Card Punch 
[Private store address 



[End of card Punch O 
r 1 1 1 1 t « If ]L 

[Punch row Punch O 
r 1 1 t « II ^ 

[Check Row Punch O 
r t I II II ^ 



[Pick up private store address 
[1st half word of card 
[Increase bufffer address 

[Punch 1st half word 
[2nd half word 
[3rd half word 
[4th half word 



[Put out L,A.M. 

[Exit to R^/E unless fault 



2.9.63 



o 



R577 



[Card Punch, Check Read Interruption 



1) 



i, ; 



a) 



(53)= 


(53/599) 






<6a)=(63/599) 






(73)== 


s'booA aaoo 






(78)=(5/599)iO'4 




101, 


111, 


123, 


-4.0(78) 


101, 


113, 


111, 


(6a) *7 


lai, 


118, 


0, 





ail. 


ia5. 


113, 


(a) 


laa. 


113, 


0, 


280 


101, 


117, 


113, 


*7 


165, 


118, 


117, 


6.0 


106, 


117, 


123, 


-4.0(73) 


127, 


117, 


0, 


*776o 


147, 


117, 


111. 


(53)*7 


101, 


114, 


123, 


(72) 


106, 


ii4» 


113, 


0.4*7 


167, 


117, 


ii4» 





101, 


114, 


123, 


4.o<7a) 


106, 


114. 


113, 


ioO*7 


167, 


117, 


114, 





101, 


114, 


123, 


8.o(7a> 


106, 


114, 


113, 


1.4*7 


167, 


117, 


114, 





113, 


117, 


111, 


(53)*7 


lai, 


116, 


0, 


*0010 0000 


113, 


116, 


123, 


-4,0(73) 


ai4. 


ia5, 


118, 


(1/500) 


lai. 


125, 


0, 


(14/578) 



o 



[V store address 
[Private store address 

[Pick up private store address 
[Pick up buffer address 

[No check as first card 



[Pick up ^word from store 



[And out required bits. 



O 



[Put out L.A.M, 

[Exit to M/E Unless error 



2.9.63 



\ I 



O) 



R578 



[Card punch end of card Interruption 






VJ 





(78) 


a 


(5/599)10.4 




(72) 


S3 


♦6004 


2200 




(53) 


3 


(53/599) 




(62) 


= 


(62/599) 




(51) 


=3 


(51/599) 




(65) 


= 


(65/599) 


i> 


101, 


111, 


123, 


(78) 




101, 


113, 


111, 


(62)*7 




121, 


114» 


113. 


2.0 




101, 


117, 


113, 


V 




127, 


117, 


0, 


6.0 




122, 


117, 


0, 


6.0 




214, 


125, 


117, 


(15) 


14) 


121, 


112, 


0, 


Oo4 




113, 


112, 


111, 


(65)*7 


13) 


121, 


112, 


0, 


♦0010 0022 




113» 


112, 


115, 


(72) 




121, 


112, 


0, 


264 




113. 


112, 


111, 


(5i)*7 




121, 


112, 


0, 


(15/575) 




121, 


125, 


0, 


(4/201) 


15) 


211, 


125, 


113, 


(12) 




lOi, 


112, 


111, 


(53) *7 




215, 


125, 


112, 


(13) 




113» 


0, 


111, 


(65)*7 




121, 


125, 


0, 


(11) 


12) 


121, 


112, 


Oj 


-4.0 




167, 


114, 


0, 


0.1 


li) 


113. 


114, 


111, 


(62)*7 


v^ 


104, 


112, 


113, 


*7 




113, 


112, 


123, 


(72) 




127, 


112, 


0, 


0,2 




214, 


125, 


112, 


(1/500) 




121, 


112, 


0, 


-0.4 




113» 


112, 


111, 


(5i)*7 




121, 


112, 


0, 


(1/579) 




121, 


125, 


0, 


(4/201) 



o 



[Pick up private store address 
[Pick up next buffer address 



[Jump if end of card 

[Not at end of card 

[Stop and put out all LAM's 

[Mark for check fail 

[Jump if first card 

[Jump if check fail 
[Clear for next card 



O 



[Pick up last \ word of card 
[P O LAM do not offset 

[Exit to H/E unless stopping 

[Set M 

[Call PER to queue 






2.9063 



O^ 



R379 



[R579»i 

[Extracodo for card punch 



o 



(60) =(60/599) 
(65) =(65/599) 

(53)= (5^599) 
(63) =(63/599) 

(56)=(56/599> 

(5o)=(5o/599) 
(6i)=(6i/599) 

(67)= (67/599) 

(52)=(52/599) 
(8o)=(8o/599) 

(8i)=(8i/599) 

(90)=(90/599) 

<99)=<99/599> 



O 



1) 


101, 


109, 


100, 


(63)*7 




121, 


105, 


0, 


51.4 




122, 


109, 


o» 


26,0 




101, 


107, 


100, 


(6o)*7 




101, 


106, 


109, 


*7 




113, 


106 j 


107, 


*7 




124, 


109, 


0, 


0.4 




124, 


107, 


0, 


0,4 




202, 


126, 


105, 


-4.0(0) 




101, 


107, 


100, 


(67) *7 




122, 


107, 


0, 


40,0 




216, 


126, 


107, 


-1(0) 




124, 


107, 


0, 


4O0O 




113, 


107, 


100, 


(67) *7 




101, 


103, 


100, 


(56)*7 




104, 


103, 


100, 


(50)1=7 




214, 


136, 


102, 


(1/514) 


2) 


121, 


110, 


0, 


(3) 




121, 


126, 


0, 


(1/520) 


3) 


121, 


110, 


0, 


2(0) 




121, 


126, 


0, 


(2/520) 




113, 


103, 


0, 


(80) 




101, 


103, 


100, 


(60) *7 




124. 


103, 


0, 


260 




121, 


105, 


103, 


-3.0 




121, 


107, 


0, 


6,0 




113, 


107, 


105, 


*7 




101, 


104, 


100, 


(67)*7 




121, 


105, 


104, 







215, 


126, 


105, 


(7) 



[Transfer last complete card and 
[incomplete card, if any, to beginning 
[of buffer 



[Reset (67) to beginning of buffer 
[characters left in present record 
[carriage control characters 
[exit if output finished 

[Bring block to cores 



[Mark end of first card in buffer 



[Jump if card still in buffer 



2.9.63 



CR579.2 



4) 



o 



o 



7) 



9) 



8) 



5) 



121, 


102, 


0, 


*001 


121, 


109, 


0, 


1,4 


113. 


109, 


0, 


(81) 


121, 


109, 


103, 


25.4 


102, 


109, 


100, 


(61) *7 


216, 


126, 


109, 


(30) 


121, 


109, 


0, 


25.4 


113. 


0, 


103, 


*7 


124, 


103, 


0, 


0.4 


202, 


126, 


109, 


-2(0) 


121, 


109, 


0, 


60O 


122, 


103, 


0, 


2oO 


113. 


109, 


103, 


*7 


122, 


103, 


0, 


24,0 


121, 


126, 


0, 


(5> 


121, 


109, 


0, 


1.4 


124, 


104, 


0, 


0.4 


122, 


105. 


0, 


4,0 


121, 


102, 


0, 


*4 


217, 


126, 


103, 


(8) 


122, 


105, 


0, 


12.0 


124, 


103, 


0, 


0.4 


122, 


109, 


0, 


0.4 


216, 


126, 


105, 


(9) 


124, 


105, 


0, 


0,4 


214, 


126, 


105, 


3(0) 


163, 


102, 


0, 





121, 


126, 


0. 


(8) 


113, 


109. 


0, 


(81) 


101, 


105, 


100, 


(56) *7 


124, 


105, 


105, 





124, 


105. 


1C5, 





121, 


110, 


0, 


2(0) 


121, 


126, 


0, 


( 1/516) 


121, 


110, 


0, 


(I6) 


210, 


110, 


109. 


(27) 


164, 


110, 


101, 


0-3 


101, 


107, 


101, 


*7 


211, 


126, 


109, 


(2/312) 


121, 


126, 


0, 


(1/312) 



[llark for column of card 
[I'lark for h \7ord of card 



[Jump if buffer full 
[Clear buffer for next card 



[VE MRIC TO CORRECT POSITION 
C along partial card 



[Increase to next h vrard of buffer 



[No of characters to punch 
[Set code conversion parameters 



[Binary 

[First half word 

[Shift up first half v/ord' (int code) 

[Ditto (Binary) 



o 



23.10.63 



1:R597.3 



o 



o 



21) 


124, 


101, 


0, 


0.1 


x6) 


202, 


126, 


106, 


(18) 




101, 


109. 


101, 


*7 




121, 


106, 


0, 


1.4 




165, 


107, 


109, 


*0303 0303 




125, 


107, 


0, 







164, 


107, 


109, 


*7474 7474 


18) 


125. 


107, 


0, 







165. 


109, 


107, 


*oooo 0374 




202, 


126, 


105, 


(2/517) 




113» 


0, 


100, 


(56) *7 




121, 


126, 


0, 


(1/527) 


19) 


113, 


110, 


0, 


(81) 


24) 


125, 


109, 


0, 





23) 


125, 


109, 


0, 







165, 


110, 


109, 


*oooo 0760 




214, 


126, 


110, 


(21) 




124, 


110, 


103, 


-2.0 




114, 


102, 


110, 


*7 




211, 


126, 


126, 


(23)0,1 




125, 


109, 


0, 





23) 


127, 


109, 


0, 


*oooo 1777 




214, 


126, 


109, 


(21) 




124, 


110, 


0, 


2.0 




211, 


126, 


109, 


2(0) 




114, 


102, 


110, 


*7 




163, 


109, 


0, 







121, 


126, 


0. 


(22) 


20) 


124, 


102, 


102, 







124. 


104, 
126, 


0, 


0.4 




215, 


102, 


(24) 




124, 


IC3, 


0, 


0.4 




121, 


102, 


0, 


0.1 




101, 


110, 


0, 


(81) 




202, 


126, 


110, 


(I9) 


25) 


124, 


103. 


0, 


24,0 




122, 


104, 


0, 


0,4 




163, 


105, 


0, 







163, 


105, 


0, 


-0.1 




113. 


105, 


100, 


(5^)*7 




121, 


126, 


0, 


(4) 



[Advance main store address 
[Jump unless beginning ^ rmrd 



[Return to (20) or (21) 

[End of characters 

[Go to find carriage control character 

[ return to (3I) (32) or (36) 

[Store mark for gword in buffer 



[And out rmv of 1st hole 
[Exit if no more holes 
[Add on buffer address 
[Add mark into store 
[Repeat for 2nd hole 

[And out bits for 10 remaining holes 

[Exit if no more holes 

[Increase address 

[Jump if no hole 

[Add into buffer 

[Shift dov/n one place 



[Shift mark 

[Increase count of characters 

[Plant character if room in ^word 

[Reset for next ^v/ord of card 

[Jump unless card full 
[Increase buffer to beginning 
[ of next card 

[Correct chdractor count 



[Store character count 

[Jump to test if room for next card 



o 



23.10.63 



[R579.4 



O 



O 



39) 


(10) 


/ 


(11) 






(99) 


/ 


(99) 






(20) 


/ 


(99) 






(2^) 


/ 


(21) 






(21) 


/ 


(99) 






(12) 


/ 


(31) 






(31) 


/ 


(3») 






(36) 


/ 


(99> 




40) 


113. 


110, 


0, 


(81) 


28) 


121, 


110, 


103. 







216, 


126, 


109, 


2(0) 




114. 


102, 


110, 


*7 




124, 


110, 


0, 


2,0 




124, 


109, 


109, 







215, 


126, 


109, 


1(28) 




124, 


101, 


0, 


0.2 


27) 


203, 


126, 


106, 


(26) 




101, 


107, 


101, 


*7 




121, 


106, 


0, 


1.0 




121. 


126, 


0, 


2(25) 


26) 


125, 


107, 


0, 







125, 


107, 


0, 







165, 


109, 


107, 


"^nn 




203, 


is6, 


105. 


(29) 




121, 


126, 


0, 


3(18) 


29) 


124, 


104. 


0, 


0.4 




124, 


102, 


102, 







215, 


126, 


102, 


(28) 




124, 


103, 


0, 


o„4 




121, 


102, 


0, 


0„1 




101, 


no, 


0, 


(81) 




202, 


126, 


no, 


(40) 




124, 


105, 


0, 


0.4 




121, 


126, 


0, 


(25) 



[Binary 

[lilark for ^word of card 

[Buffer address 

[Store in buffer 



[Jump unless blank column 
[Increase store address 



[And out character:: 
[End of record 



[Increase to next gword of card 



[Jump to test if room for next card 



o 



23.10.63 



CR579.5 



31) 



o 



101, 

124, 
104, 
124, 
124, 

215. 
121, 



109, 
103, 
104, 
104, 
103, 
126, 
126, 



0. 

109, 

109, 

0, 

102, 

o, 



(81) 

24.4 

<37> 

0.4 



-2(0) 
(4) 



[Card feed caused by end of record 
[Increase buffer to end of card 

[Increase buffer counter to end of card 



[Tost if room for next card 



3&) 
33) 



O 



30) 
38) 



46) 



47) 
48) 



37) 
45) 



124, 
121, 
121, 
215, 
122, 
215, 
121, 
102, 
214, 
122, 
101, 
102, 
122, 
121, 

131, 

113. 
122, 
101, 
121, 
121, 
217, 

121, 

113. 
101, 

127, 
124, 
104, 

113. 
113, 
121, 

113. 
121, 

-0.4 
23.4 

1.4 
0,4 



101, 
110, 
126, 
126, 
102, 
136, 

105, 
105, 
126, 
104, 
109, 
103, 
103, 
110, 

126, 

104, 
104, 

103, 
110, 
126, 
126, 

104, 
104, 
109, 
109, 
109, 
109, 
109, 

O, 
109, 

o, 
136, 

/ 
/ 

/ 
/ 



o, 
o, 
o, 
108, 

0, 

102, 

0, 

9, 

105, 

o, 

0, 

109, 

0. 

o, 
o, 

100, 
0, 

o, 
o, 
o, 

104, 

0, 

103, 

100, 

o, 

0, 

100, 
100, 
100, 

o, 
100, 

0, 

11.4 

35.4 

1.0 




0.1 

(33) 

(1/531) 

<5) 

*001 

4<o) 

1.4 

(81) 

(30) 

0.4 
(81) 

(45) 

3.0 

2(0) 
(I/518) 

(67) *7 

40.0 

(80) 

2(0) 

(4/55^3) 
(I/5I4) 

6.3 

*7 

(63) *7 
0,1 
26.0 
(60) *7 
(63) *7 
(65) *7 
* 00160001 

(53) *7 
(2/515) 



[Increase main stox'e address 

[Go to read next separator 
[Return unless zero separator 



[Go to store code parameters 
[Store no of characters to punch 



[Remove rosorved block label 
[Return to output master routine 
[if no characters to punch 

[Stop bit at end of buffer 



[Start punch 



o 



33.10.63 



o 



10) (98) 

*4o6i 6010 
*4o6o 0000 
*436o 0000 
*4i63 6000 
*403a 6000 
*4043 4000 
*4oo3 4000 



O 



♦4000 

*4031 

*4ioo 
*430o 
*4oai 

*4oa3 
*4043 
*4o62 



0000 
6010 
0000 
0000 
0000 
0000 
6000 
6000 



*40oo 0000 
*4o6jL 4020 
*4120 0000 
*4o6a 0004 
*403i 2000 
*404i 0000 
*4043 0000 
*40D3 0000 

(98) 

*404i 4020 
*4140 0000 
*403a 0004 
*403l 4000 
*404i 2000 
*40bi 2000 
(98) 



/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 



*30oo 0000 
^4042 0004 
*4i6o 0000 
♦4142 6000 
*402l 6000 
*404i 4000 
*40Di 4000 

(98) 



0000 
60CX) 
0000 
0000 
0000 
6000 
6000 



*2000 
*4202 
*4200 
*4020 
*4032 

*404i 
*4o6i 
(98) 

o 

*404i 6010 
*4320 0000 
♦4040 0000 

*4022 3000 

*4042 0000 

*40D2 0000 

(98) 



*4o6i 0000 
*4240 0000 
*4oai 4020 
*4Q22 4000 
*4043 2000 
*4o62 2000 
(98) 



CR579.6 

[00 / 04 
[10 / 14 
[20 / 24 
C30 / 34 
C40 / 44 
C50 / 54 
[60 / 64 
170 / 74 



[01 / 
[11 / 



05 
15 



[ai / 33 
[31 / 35 
[4^ / 45 

[51 / 55 
[61 / 65 

[71 / 75 



[02 / 

[12 / 



06 
16 



[22 / 26 

[33 / 36 
[43 / 46 
[53 / 56 
[62 / 
[73/ 



66 
76 



[03/ 
[13/ 
[33 / 37 
C33 / 37 
[43 / 47 
[53 / 57 
[63 / 67 

[73 / 77 



07 
17 



(98) 



*402i 4030 



[Fullstop 



3.9.63 



O 



[R579.7 



11) 



O 



O 



(98) 


/ 


*3000 0000 


[00 / 04 


(98) 


/ 


(98) 


[10 / 14 


(98) 


/ 


(98) 


[30 / 24 


(98) 


/ 


(98) 


[30 / 34 


(98) 


/ 


*402i 6000 


[40 / 44 


*402a 6000 


/ 


*404i 4000 


C50 / 54 


*404a 4000 


/ 


*4o6i 4000 


[60 / 64 


*4o63 4000 


/ 


(98) 


170 / 74 


*4ooo 0000 


/ 


*2000 0000 


[01 / 05 


(98) 


/ 


(98) 


[11 / 15 


*4043 4001 


/ 


(98) 


[31 / 25 


(98) 


/ 


(98) 


C31 / 35 


*402l 0000 


/ 


*4022 0000 


1:41 / 45 


1=4023 0000 


/ 


*404i 6000 


[51 / 55 


*4043 6000 
*4o53 6000 


/ 


*4o6i 6000 


[61 / 65 


/ 


(98) 


[71 / 75 


(98) 


/ 





[02 / 06 


(98) 


/ 


(98) 


[12 / 16 


^4042 2002 


/ 


*4022 2002 


[22 / 26 


(98) 


/ 


(98) 


[33 / 36 


*402l 2000 


/ 


*4022 2000 


[42 / 46 


^4041 0000 


/ 


*4042 0000 


[52 / 56 


*4043 0000 


/ 


*4o62 0000 


[62 / 66 


*4003 0000 


/ 


(98) 


[72 / 76 


(98) 


/ 





[03 / 0; 


(98) 


/ 


*4332 6000 


[13 / 17 


(98) 


/ 


*4022 4001 


[23 / 27 


(98) 


/ 


(98) 


C33 / 37 


*402i 4000 


/ 


*4022 4000 


C43 / 47 


*404i 3000 
*405i 2000 


/ 


*4047; 2000 


[53 / 57 


/ 


*4062 2000 


[63 / 67 


(98) 


/ 


(98) 


C73 / 77 



23,10.63 



la) 



o / 

*6ooi / 

*6oo3 / 

*6oo5 / 

*6oo7 / 

*6oii / 

*6oi3 / 

*6oi5 / 

o / 

*6021 / 

*6o33 / 

*6oa5 / 

*6o27 / 

*6o3i / 

*6o33 / 

*6o35 / 

*6ooo / 

*6ooo / 

*6ooo / 

*6ooo / 

*6ooo / 

*6ooo / 

*6ooo / 

*6ooo / 

o/o 

0/0 
0/0 

o/o 

0/0 
0/0 
0/0 
0/0 



*6oo4 
*6ooa 
*6oo4 
*6oo6 
«6oio 
*6oia 
*6oi4 
*6oiD 

*6ooo 

*6023 

*6o34 
*6o3b 
*6o30 
*6o33 
*6o34 
*6o3o 

*6ooo 
*6ooo 
*6ooo 
*6ooo 
*6ooo 
*6ooo 
*6ooo 
*6ooo 



R579.S 

Carriage control table 



00 / 01 
03/03 
04/ 05 
06 / 07 
10 / 11 

la / 
/ 
/ 



ID 



13 

17 



20 / ai 
aa / a3 
a4 / as 
36 / a7 

30 / 31 
3a / 33 

3^ / 



35 
37 



40/41 

42 / 43 
44/45 
4^/ 47 
50/ 5i 
5a / 53 
54/ 55 
50/ 57 

60 / 61 
6a / 63 
64/ 65 
66 / 67 
70 / 71 
7a / 73 
74/ 75 
76/ 11 



2.9.63 



O 



o 

CR585 

^585 [Teleprinter faxilt testing routine 

(l)=(l/570) 



O 



2,9.63 



o 



[R586 



R586 



[Teleprinter Interruption 



1) 



<74)= 


(5/599)13. 







<6a)=(62/599) 






(5l)=<5i/599) 






101, 


133, 


0, 


*6oo4 3410 


101, 


111, 


123, 


(74) 


101, 


113, 


111, 


(6a) *7 


lai, 


114. 


113, 


0.4 


113, 


114, 


111, 


(6a)*7 


101, 


113, 


113, 


*7 


113, 


112, 


123, 


*6oo4 aooo 


127, 


112, 


0, 


o.a 


214, 


125, 


112, 


(1/500) 


121, 


112, 


0, 


-0,4 


113, 


112, 


111, 


(51) *7 


121, 


113, 


0, 


(1/573) 


121, 


125, 


0, 


(4/aoi) 



[Subsidiary store address 
[ of teleprinter 



[Which teleprinter 
[Find private store 
[Address of this character 
[Address of next character 

[Pick up character and POLAM 



[Exit unless stopping 



[Call PER to queue 



O 



2.9.63 



o 



'Cg/^/TTl 



0«xg.no;iqns maoj :^Txa| 
oAoraea I 



p0a.o©XQs exaa j.x ixxaj 



SQjoo o:^ 3looxq n^O H'Jl 



josxAasdng jca^^ua] 



TsqBT 4nd:^noi 

leq^x c^ndui | 

sp.j:oo9j: 5.nd5.no/5.ndui | 

sojoo 0:1, XI'80} 

axqe:;. uoxr^Boox 5[ooxa| 

HVd apooQJ4.xa :^as| 

qo:^xms a J r^ogl 

:^nd:^no/:^ndux ^oexasl 

"dns j:e:^ua| 

ux-GVi o:j :i.xxa| 






'tot 


'gZT 


'TZT 


(St) 


'90T 


'60T 


'Ctt 


(St) 


'9OT 


'60T 


'4i^T 


T*0 


'0 


'60T 


't^t 


(6) 


'0 


'9ZT 


'IZT 


?IU91^^ 


*OTT 


'gOT 


'S9T 


(ZT) 


'OOT 


'OTT 


'Sot 


TO* 


'0 


*OTT 


'S^T 


(8) 


'0 


'ZOT 


'^TT 


(0)9 


'9OT 


'gzx 


'9Te 


(91:) 


'lox 


'^tT 


'Cxz 


(4) 


'0 


'<^X 


'TZT 


(0)S 


'0 


*60T 


'TZT 


i'*(f7T) 


'OCT 


'80T 


'9tz 


i'*(£T) 


'0 


'gOT 


'TZT 


(9) 


'0 


'oeT 


'TZT 


(o)f'*z 


'00 T 


'60T 


'TZT 


i^'o 


'96 


'oOT 


'S9T 


(£) 


'96 


'TOT 


'TT2: 


(S) 


'0 


'TOT 


'T^T 


ch£ 


'0 


'92T 


'T^T 


on 


'9«''T 


'96 


'TZT 


'2*0- 


'0 


'^ 


'LZT 


(TOS5/9) 


'0 


'm 


'^TT 


(TOK/OT)^* 


'0 


'0 


Ttt 






(t6S/6t) = 


= (9T) 






(£oz/g-> = 


= (ST) 






Q99e« = 


= (i^T) 






S99£* = 


= (fT) 






dzz/ZT} ■■= 


= (»T) 






(StC/^) 


= (6) 






(Goe/se) 


= (8) 






Uzz/fz) 


= a) 






(St^/t) 


= (9) 






(t6S/t) 


= (S) 






CTOZ/T) 


= (i^) 






Uft/h 


= (£) 



(^ 



(T 



n 



aSBJiuxx opooQJc:j,xa X's-rsM^T-iOd I 



o6Sa 



o 



CR595.I 

595 [Input extracodes 

(70) = 8.0*7 

(71) = 1(70) 
(73) = 3(70) 
<73) = 3<7o) 
(74> » WO) 
(75> = 5C70) 
(76) = 6(70) 
(78) = *7 



O 



2.9.63 



a 



CR595.2 





(0) = 


*4ooo 0540 




I) 


lOI, 
(0) = 


126, 

55*4010 


0, 


(72) 


2> 


131, 


126, 


0, 


<5)o.i 




lai. 


94, 


0, 


0.1 




no, 


94. 


0, 


(72) 


3) 


lOI, 


94, 


0, 


(71) 


4) 


125, 


94, 


0, 







113, 


94. 


0, 


(71) 


1 


217, 


126, 


127, 


(17) 




565. 


122, 


94. 


7.7 


5) 


lOI, 


94. 


0, 


(75) 




121, 


95. 


94. 


0.4 




113. 


95, 


0, 


(75) 




102, 


95, 


0, 


(76) 




121, 




0, 


(2)1.2 




113, 


96; 


0, 


(72) 


6) 


113. 


126, 


0, 


3*6 




121, 


125, 


0, 


(8)0.2 




113, 


125, 


0, 


3*6 




121, 


97, 


0, 


(6)0.1 




121, 


126, 


0, 


(1/590)0.0 


8) 


113, 


126, 


0, 


(79) 




lOI, 


94, 


94. 







121, 


126, 


0, 


(4) 




216, 


126, 


95. 


(9) 




113, 


0, 


0, 


3*6 


9) 


122, 


95. 


0, 


0.4 




216, 


126, 


95. 


(14) 




^J3' 


94. 


0, 


(71) 




165, 


94. 


95. 


0.3 




120, 


94. 


0, 


(11)0.3 




113, 


94. 


0, 


(72) 




121, 


126, 


94. 





II) 


165, 


94. 


126, 


0,3 




215, 


126, 


94. 


(2)1 




lOI, 


126, 


0, 


(73) 


la) 


217, 


126, 


127, 


C15) 




121, 


127, 


119. 





13) 


121, 


94. 


0, 


(14)0.7 




113, 


94. 


0, 


(72) 




121, 


126, 


0, 


(3) 


14) 


121, 


94. 


0, 


(5)0.1 




121, 


126, 


0, 


(50)0.1 


15) 


121, 


94. 


0, 


(14)0.7 




113. 


94> 


0, 


(72) 




lOI, 


94. 


0, 


(71) 




125, 


94. 


0, 







127, 


94. 


0, 


7-7 


i6) 


121, 


126, 


91. 





^V 


127. 


94. 


0, 


7-7 


i8) 


121, 


126, 


127, 






[ EXTRACXIDB I0'S4 Enter at (t) 
[Jump to (2), (2)1, (II), or (14) 



[Jump to find next half word 

[Subtract o.I from multlway 

[ jump address 

[Half word 

[Shift up 

[Preserve for next time 

[Exit on extracode control 



[Present address 

[Next address 

[Next address - end address 



[INHIBIT INTERRUPTIONS 



[Call current input block 

[Preserve BI26 in case of 
[ non-equivalence 
[Pick up half word 

[Return to (4) unless last 
[ half word in record 

[If no character in record at all 
[ get next record 



[Reset multiway jump address 
[ including l,s, bits 



[Transfer remaining characters 

[Jump to (12) if true end of record 

[ (13) if record continues 

[SPECIAL EXIT ON EXTRACODE CONTROL 

[c'=n 

[Arrange to read separator 

[ next time 

[Transfer last character 



[Exit on extracode control 

[Exit on extracode control 

2.9.63 



'U 



O 



30) 


113 » 


133, 


0, 


(78) 




lOI, 


93, 


0, 


(78) 




^2,7, 


92, 


0, 


*3777 777? 




131, 


136, 


0, 


(33) 


31) 


131, 


92, 


0, 


*3777 7774 


33) 


137, 


ii9» 


0, 


*7777 7774 




131, 


93. 


0, 





33) 


lOI, 


91, 


0, 


(75) 




lOI, 


94. 


0, 


(76) 




130, 


94. 


91. 







lOI, 


95. 


0, 


(73) 




137, 


95. 


0, 


0.3 




136, 


95. 


0, 


0.3 




317, 


136, 


94. 


(36) 




315. 


136, 


95. 


(36) 




lOI, 


95. 


0, 


<73) 




133, 


95. 


0, 


(13)0.4 




316, 


136, 


95. 


(35) 




314, 


ia6. 


93. 


(35) 


34) 


53Ii 


133, 


93. 





25) 


131, 


94. 


0, 


(33) 




131, 


126, 


0, 


(50)0.1 


^) 


315, 


136, 


92. 


(37) 




531. 


133, 


93. 


*4 


37) 


315, 


136, 


95. 


(60) 




133, 


95. 


94. 







134, 


94. 


92. 







317. 


94. 


94. 







130, 


94. 


93, 







137, 


94. 


0, 


*oooo 7774 




314, 


136, 


94. 


(60) 




133, 


95. 


94. 







315. 


136, 


95. 


(38) 




131, 


95. 


0, 


(14)0.7 




113, 


95. 


0, 


(73) 


38) 


134, 


93, 


94, 







133, 


92. 


94. 







131. 


136, 


0, 


(39> 



CR595.3 

[ EXTRACODE 105^6 Enter at (30) 

[Number of characters required 

[ EXTRACODE I057 Enter at (31) 

[Address in programmer's store 
[To accumulate total transferred 

[Length of record (negative) 

[Set Bg5 non zero if half 

[ word already started 

[Jump provided record not finished 



[Jump if not true end of record 
[ or record not started yet 
[End of record EXIT 



[If no characters required EXIT 

[Transfer character by character if 

[ NOT BEGINNING HALF WORD 

[Length remaining 

[B94 contains number of characters 

[ required, or number available 

[ whichever is smaller 

[Number of half words to be transferr-; 

[Jump if no complete half words 

[If record will be exactly 

[ finished, reset jump for 

[ extracode IO54 

[Add to total 

[Subtract from number required 

[Transfer half words. Return to (33) 



3.9,63 



o 



o 



30) 


121, 


95> 


94. 


-3.4 




216, 


95. 


95. 







I24» 


95. 


0, 


3.4 




165, 


96. 


95. 


3.4 




Ii3» 


126, 


0, 


3*6 




121, 


125, 


0, 


(32)0.2 




III, 


125, 


0, 


3*6 




131, 


97. 


0, 


(30)0.1 




121, 


126, 


0, 


(1/590)0.0 


33) 


113, 


126, 


0, 


(79) 




121, 


125. 


0, 


(35) 


34) 


lOI, 


97. 


91, 







113. 


97. 


95. 


0.4(78) 




124, 


91. 


0, 


0.4 


33) 


202, 


125, 


95. 


(34) 




122, 


94. 


96. 







121, 


126, 


0, 


(38) 




113. 


0, 


0, 


3*6 


37) 


lOI, 


97. 


96, 


0.4(78) 




113. 


97. 


119, 







124, 


119. 


0, 


0.4 


38) 


202, 


126, 


96, 


(37) 


39) 


2I5» 


126, 


94. 


(30)0.1 




113, 


91. 


0, 


(75) 




121, 


126, 


0, 


(23) 



CR595.4 

[B95 contains B94 or 3,4 

[ whichever is the smaller 

[Copy to B96 

[INHIBIT INTERRUPTIONS 

[interrupt control 

[Call current input block 

[Preserve BI26 in case of 
[ non-equivalence 



[Transfer from supervisor to 
[ subsidiary store 



[Subtract from number remaining 



[Resume extracode control 

[Transfer from subsidiary store 
[ to programme store 



O 



2.9.63 



o 



40) 


165, 


91. 


119, 


41) 


lOI, 


95. 


0, 




122, 


95. 


91. 




121, 


97» 


0, 


; 


215, 


126, 


95. 


42) 


121, 


126, 


0, 




(d) = 


*400o 0510 


43) 


501, 


122, 


6, . 


' 


(o> = 


*400o 0520 


44) 


501. 


122, 


0, 




(0) = 


1(42) 




45) 


lOI, 


95. 


0, 




127, 


95, 


0, 




125, 


95. 


0, 




215, 


126, 


95. 




lOI, 


95. 


0, 




loa, 


95. 


0, 




121, 


94. 


0, 




216, 


126, 


95. 


46) 


lOI, 


94. 


0, 




211, 


126, 


94. 




217, 


126, 


127, 




521. 


122, 


119, 



(70) 

o 

(41) 

(I/59I) 

(4/596) 



(70) 



<74> 



(72) 

0.3 

0.3 

(46) 

(75) 

(76) 

C45) 
(50)0.1 

(73) 

(4/596) 
(16) 



tR595.5 

[ EXTRACODE IO50 Enter at (40) 
[Select new input stream 

[ EXTRACODE lO.t^I Enter at (43) 
[ EXTRACODE I0.'i2 Enter at (44) 

[EXTRACODE lO.^.^l Enter at (45) 

[Test if any characters left 
[ in half word 
[If none, test if any half 
[ words left in recbfd 

[If none, get next recor<| 

[Test binary / internal code 
[Exit on extracode control 
[Binary: ba' = n 



o 



2,9.63 



[R595.6 



o 



51) 

50) 



53) 

53) 



V 



54> 



56) 



57) 



lai, 

117 » 

lOI, 

124, 

127. 

113. 

131, 
III, 

121, 
121, 

113. 



lOI, 
121, 
113 » 

215, 
121, 
121, 

165, 
214, 

113 r 

121, 

165, 
164, 

134, 
216, 
124, 

113' 
164, 

113. 
165, 

215, 

214, 
216, 
217, 
124, 

113. 
121, 

113. 
121, 



97. 

97. 

97. 
97. 

126, 
125, 

125. 

97. 
126, 

126, 



96, 

126, 

o, 

126, 

97. 
126, 

95. 
126, 

96, 

96, 

95. 

95. 

95. 
126, 

97. 
97. 
97. 
97. 
97. 
97. 

96, 
96, 
96, 
96, 
97. 
97. 

126, 



0, 
0, 

o, 
0, 
o, 
o, 
o, 

0, 
0, 

o, 
o, 



97. 
o, 

o, 

96, 

0, 

0, 

96, 

95. 

0, 

o, 

97. 
96, 

o, 

95. 

0, 

o, 

95, 

o, 

96, 

97. 

97. 
96, 

96, 

97. 
0, 
o, 
o, 

94. 



*7777 777 A 
(76) 

(76) 

0.3 

""7777 777A 

3*6 

<53)o.2 

3*6 

(50)0.1 
(1/590)0.0 

(79> 



o 

(54) 

3*6 

(56) 

(51)0.1 

(1/592) 

*ooo4 

(57) 
(74) 



*oooo 7777 
«oooo jy7J 
^7777 ooc^ 

(99) 

0.4 

*cooo ']77y 

(76) 

*i 

(13) 
(13) 

o 

0.1 

o 

(73) 
(2)0.7 

(73) 



[Return with new block: clear 

[ l.s bits 

[Find next record. Enter at (50)0. 

[End address of previotxs record 

[Round up: equals address of 

[ next separator 

[INHIBIT INTERRUPTIONS 

[Interrupt control 



[Call current input block 

[Preserve BI26 in case of 
[ non-equivalence 

[Pick up separator 

[Resume extracode control 

[Jump unless zero separator 

[Advance to next input block 



[If separator has bit 14 = I, copy 
[ to (74) and ignore character 
[ count 

[Monitor if next separator is 
[ not in the same block 



[Next address 

[End address 

[Record continues 
[True end of record 



[Set jump addresses 



[Return 



2.9.63 



r 



o 



60) 



62) 



o 



65) 



66) 
67) 



113, 


127, 


0, 


(7«) 


lai, 


91, 


0, 


(62)0.1 


121, 


137, 


0, 


(62) 


lOI, 


126, 


0, 


(72) 


lOI, 


95, 


119, 





137, 


95, 


0, 


*oo77 ^^^^ 


125. 


95. 


94, 





113. 


95, 


119, 





122, 


92, 


0, 


0.1 


124, 


93, 


0, 


0.1 


124, 


119, 


0, 


0,1 


165, 


96, 


119, 


0.3 


210, 


126, 


126, 


(66) 


214, 


126, 


92, 


(66) 


214, 


126, 


95. 


(67) 


lOI, 


126, 


0, 


(72) 


lOI, 


95, 


119, 





125, 


95, 


0, 





113, 


95, 


119, 





134, 


96, 


0, 


0.1 


137, 


96, 


0, 


0.3 


215, 


126, 


96. 


(65) 


lOI, 


127, 


0, 


(78) 


121, 


126, 


0, 


(23) 



ER595.7 

[Preserve main control 

[Return addrress at end of record 

[Return for address for character 



[Send characterto 
[ programme store 
[Count down number required 
[Count number sent 
[Advance address 

[Exit at end of record 
[Exit after last character 



[Exit if half word is 
[Enter 1054 



full 



[Shift up odd characters 
[recover main control 



2.9.63 



o 



R596 



CR596.1 

[Output extracodes 





(70) 


= 8.4*7 








(71) 


= 1(70) 








(72) 


= 2(70) 








<73) 


= 3<7o) 








<74> 


= 4(70) 








<75) 


= 5<7o> 








(76) 


= 6(70) 








(78) 


= *7 








(0) = 


*40i7 






I) 


165, 


94. 


1x9, 


1-1 


2) 


lOI, 


95. 


0, 


(71) 




217, 


126, 


95. 


(5)0.1 




125, 


95. 


94. 





3) 


113, 


95, 


0, 


(71) 


4) 


217, 


126, 


127, 


(18/595) 




521, 


0, 


0, 





5) 


125, 


95. 


94. 


-4.0 




lOI, 


94. 


0, 


(75) 


6) 


113 » 


126, 


0, 


3*6 




121, 


125, 


0, 


(7)0.2 




113. 


125, 


0, 


3*6 




121, 


97. 


0, 


(6)0.1 




121, 


126, 


0, 


(1/590)0.4 


7) 


113 » 


126. 


0, 


(79) 




113. 


95. 


94. 







121, 


X26, 


0, 


(8) 




113 » 


0, 


0, 


3*6 


8) 


124, 


94. 


0, 


0.4 




113. 


94. 


0, 


(75) 


9) 


102, 


94. 


0, 


(76) 




121, 


95. 


0, 


4.0 




217, 


126, 


94. 


(3) 




121, 


94, 


0, 


(10) 




121, 


126, 


0, 


(50) 


10) 


lOI, 


94. 


0, 


<75> 




121, 


126, 


0, 


<9) 



[ EXTRACODE I064 Enter at (l) 

[Jump if half word will be full 
[Add character in 

[Exit under extracode control 
[Exit to main control ' 

[Shift up and remove old sign bit 
[present address 

[INHIBIT INTERRUPTIONS 



[Call output block 

[Preserve BI26 in case of 
[ non-equivalence 
[Half word to store 



[Next address 
[Next - end address 

[Return unless end of store reached 

[End of store Insert separator 



2.9,63 



[R596.2 



O 



O 



ao) 


121, 


92, 


0, 


*4 




121, 


126, 


0, 


(22) 


21) 


121, 


92, 


0, 





23) 


113, 


122, 


0, 


(78) 




101, 


93. 


0, 


(78) 




137, 


92, 


93. 







127, 


93. 


0, 


*3777 mi 




214, 


126, 


93. 


(27) 




101, 


91, 


0, 


(71) 




122, 


91, 


0, 


4.0 




215, 


126, 


91, 


(80) 


24) 


101, 


91, 


0, 


(75) 




101, 


94. 


0, 


(76) 




122, 


94. 


91, 







122, 


94. 


93. 







216, 


94, 


94. 







124, 


94, 


93, 







127, 


94. 


0, 


*oooo 7774 




122, 


93. 


94. 







114, 


94. 


0, 


(75) 




121, 


126, 


0, 


(39) 


26) 


121, 


94. 


0, 


(24) 




215, 


126, 


93. 


(27) 




217, 


126, 


92, 


(27) 




121, 


92, 


0, 


*4 




121, 


136, 


0, 


(51) 


27) 


102, 


91, 


0, 


(76) 




216, 


126, 


91, 


(50) 




213, 


126, 


93, 


(80) 




521, 


0. 


0, 






[EXTRACODE I066 Enter at (20) 



[ EXTR/iCO DE I067 Entor at (21) 



[Bit 23 = O if record ends 
[Hvunber of characters 
EExit if no characters 
[If not beginning new half 
[ v/ord, send character 
[ by character 



[Length of store available 

[Length available or length 

[ required: v/hichever 

[ iG cmaller 

[Numbers of half words to be 

[ transferred 

[Subtract from number required 

[AddroGc beyond last character 

[Transfer: Return to (26) 



[Jump if Gome characters remain 
[If no characters remain exit 
[ or terminate record 



[If block io full, insert 
[ separator 

[Transfer remaining characters 
[End of extracode 



[23/10/63 



[RS96.3 



O 



O 



o 



[Enter with B9I B94 3II9 



39) 


314, 


136, 


94, 


(26) 




30) 


121, 


95, 


94» 


-3.4 


[B95 Contains B94 or 3,4 




ai6, 


95, 


95, 





[ whichever is smaller 




124, 


95, 


0, 


3^0 






165. 


96, 


95. 


3c4 


[Copy to B96 




122, 


94, 


96, 


0.4 






121, 


126, 


0, 


(33)0.1 




32) 


101, 


97, 


119, 





[Transfer from programmora at< 




113. 


97. 


96, 


(78) 


[ to subsidiary store 




124, 


119, 


0, 


0.4 




33) 


202, 


136, 


96, 


(32)0.1 




31) 


113, 


136, 


0, 


3*6 


[INHIBIT INTERRUPTIONS 




121, 


125, 


0, 


(35)0.3 






111, 


135, 


0, 


3*6 


[Interrupt control 


34) 


121, 


97, 


0, 


(31)0,1 






\V121, 


126, 


0, 


(1/590)0,4 


[Call current output block 




113. 


136, 


0, 


(79) 


[Uncuod now 


35) 


113, 


126, 


0, 


(79) 


[Preserve BI36 in case of non 
[equivalence 


36) 


101, 


97, 


95, 


(78) 


[Transfer from subsidiary sto 




113, 


97, 


9i, 





[ to supervisor 




124, 


91, 


0, 


0.4 




37) 


202, 


125, 


95. 


(3&) 






121, 


126, 


0, 


(39) 




3B) 


113. 


0, 


0, 


3*6 


[Resume extracode control 



tOTCf^ 



33/10/63 



CR596.4 



vJ 



o 



43) 

44> 



45) 
43) 

46) 



47) 



48) 



(o) = *4ooo 0610 
501, laa, o, 

(0) = *40oo 0630 
501, 12a, o, 

<o) = 1(38) 



165, 
101, 
121, 
217, 

125, 
121, 
122, 
121, 

125, 
101, 

113. 

121, 

111, 
121, 
121, 

113 » 
113. 
121, 

113, 
131, 



94. 

95, 
96, 
126, 

95 » 



126, 



95, 

94 » 
126, 

125, 

135, 

97, 
126, 



119, 
0, 

o, 

95, 

94, 

0, 

0, 

0, 

34, 

0, 

0, 

o, 

0, 

0, 

0, 



136, o, 

95, 94, 

126, 0, 

o, o, 



(70) 



(74) 



1-1 

(71) 

0.4 

(47)0.1 





0.1 

(46) 



[EXTRACOBE I06I Enter at (4^) 



[Bi^TMCODE 1062 Enter at (44) 



[EJJTRACOTE^JL^ Enter at (45) 
["6--b'it character 



[Jump if half word ■will be full 

[Insert character shift up 
[ and find end address 



[Add in and remove old sign bit 
[IHHIBIT INTERRUPTIONS 



-4.0 

(75) 
3*6 

(48)0.3 
3*6 

3.1(47) 

(1/590)0,4 [Call current output block 



94, 
136, 



0, 
0, 



(79) 
o 

2(0) 
3*6 

(10) 

(51) 



[Preserve BI26 in case of 
[ non-equivalence 

[Resume oxtracods control 
[Insert separator 



23.10.63 



CH596.5 



o 



o 



50) 
51) 

56) 

57> 

53) 
53) 

54) 
55) 



58) 



59) 



O 



121, 
121, 

121, 

114. 
121, 

121, 



121, 
117, 
107, 

113. 
113. 

lOI, 

124, 
164, 

121, 
210, 

lOI, 
211, 
124, 
lOI, 
211, 
124, 
122, 
104, 

113. 
121, 
III, 
121, 
121, 

113 » 
113. 
113. 
121, 

113 » 

113. 
165, 
124, 

i±3, 
121, 

100, 

217, 
121, 
113. 

121, 



95. 
126, 

95. 
95. 
95 » 

125, 



12;, 95. 



96, 
96, 
96, 
96, 
96, 
96, 
95, 

95. 

97. 
97. 
96, 
126, 

97. 
96, 
126, 

97. 
97. 
97. 

1:7^, 

1-5. 

1^5. 

97. 
126, 

126, 

97. 
0, 

126, 
o. 

95. 
96, 
96, 
96, 

97. 

96, 

126, 

95. 

95. 

126, 



o, 
o, 

0, 
0, 
0, 
o, 

o, 

o, 

0, 

o, 

0. 
c , 
f)6, 

o, 

93. 
o. 

0. 

0, 

0, 

96, 

0, 

96, 
o, 

o, 
o, 
c, 
o, 

0, 

96, 

95. 

0, 

o, 

o, 

95. 

o, 

o, 

0, 

0, 

96, 

0, 

0, 

94. 



0.1 
(52)0.1 

1,0 

<73) 

o 

(52)0.1 
0.1 

V777 777 A 
(76) 

<75) 
(75) 
(72) 

(75) 

0.3 

m77 777 A 



*i 

(70) 

(54>o.i 

*4 

(72) 

(55)0.1 

0.1*2 

0.4 

(75) 

3*6 

(58)0.2 

3*6 

(53)0.1 

(1/590)0.4 

(79) 




(59) 
3*6 

(72) 

""7777 777 A 
0.4 

(75) 
(56)0.1 

(76) 

(1/594) 

4.0 

(71) 



[ Insert Separator . Enter with B94 

[Entry when store is full 
[ (record continues) 

[Entry at end of record 
[Count of records 



[Re-entry after obtaining 
C new block 

[Ensure bits 0, I are zero 



[Address for next separator 



[Separator 

[INHIBIT INTERRUPTIONS 

[Interrupt control 

[Call output block 

[Preserve BI26 in case of 
[non equivalence 
[Insert separator and clear 
[ space for next one 
[Resume extracode control 

[Address for next separator 

[Address for next character 

tEnd address - next character 
£ address 

[Next block if required 



[Set (71) 
[Return 



2.9.63 



o 



[R596.6 

[BXTEIACODE 1060 Enter at <6o) 



O 



60) 


121, 


91. 


119, 





61) 


165. 


94. 


9^. 


*7777 777^ 




lOI, 


95. 


0, 


(70) 




165 > 


96, 


95. 


""7777 777^ 




123, 


96, 


94. 







121, 


97. 


0^ 


<6i) 




215, 


i?<6, 


06, 


(1/593) 




lOI, 


96, 


^. 


<75) 




102, 


96, 


c, 


(7a) 




213, 


136, 


96, 


(63) 




121, 


94. 


0: 


(66) 




121, 


95» 


0, 







121, 


126, 


0, 


<57)o.i 


63) 


124, 


95. 


<■''■, 







211, 


126, 


0:>' 


(66) 




122, 


96, 


c, 


0.4 




215, 


126, 


96, 


(64) 




lOI, 


96, 


0, 


(71) 




122, 


96, 


0, 


4.0 




214, 


126, 


c6, 


(66) 


64) 


113, 


127, 


0, 


(78) 




121, 


94. 


0, 







121, 


i£7, 


0, 


(65) 




121, 


125, 


0; 


(42) 


65) 


lOI, 


12;, 


0, 


(78) 


66) 


113. 


91. 


0, 


(70) 




121, 


126, 


0, 


(4) 



[Currently selected input 



[Select new output stream if 

[ required 

[Jump unless this is first 

[ time output stream selected 



[Prepare first block 

[Test whether changing Bin/I, C. 



[Exit if no character^ have been 
[ sent to previous record 

[Preserve main control 

[Enter IO65 to end 
[ previous record 
[Recover main control 



2«9.63 



O 



o 



CR596.7 



80) 



83) 



84) 



o 



113. 


IA7, 


f'.. 


(78) 


127, 


119, 


c. 


■^mi 717 A 


121, 


IS;; , 


f-: 


(82) 


165, 


^U 


i'/9, 


0.3 


215. 


ISO, 


0?. 


(84) 


lOI, 


91, 


i-g, 





125, 


91. 


o> 





124, 


119. 


0, 


0.1 


122, 


93, 


Or 


0.1 


165, 


94. 


?;", 


7^7 


215, 


is5, 


^::., 


<2) 


lOI, 


K7, 


0, 


(78) 


217, 


is6. 


og. 


<2> 


121, 


1556, 


0; 


(42) 



[Preserve main control 

[Return address after extracode 

[Pick up new half word 



[Pick out character 
[Enter extracode 1064 

[Recover main control 

[Enter extracode 1064 or 1065 
[for last character 



o 



2.9.63 



o 



FIXED STORE COLUJiUJ 4OO3 

(o) = 223*4003 

R659 



I Activate scheduler 



1) 



(2) = 


( 1/660) 






101, 


108, 


0, 


(3/660) 


167, 


109, 


108, 





113. 


109, 


0, 


(3/660) 


213, 


126, 


108, 


7<l/3^-5) 


121, 


109, 


0, 


(2) 


121, 


126, 


0, 


7<3/230) 



I Main store scheduler 



I Force marker 
lExit if active 

[Insert scheduler to queue 



() 



14/6/63. 



( ) 



o 



o 



■0 



<)> 



R630 



IR630 



(30) = 


(10/205) 






(3.1) = 


249,4^7 






(32) = 


(2/203) 






(33) = 


(I/649) 






(43> = 


(4/303) 






(44) = 


(3/203) 






103, 


109, 


0, 


(30) 


217, 


126, 


109, 


4(0) 


211, 


126, 


101, 


(33) 


172, 


109, 


0, 


6 


236, 


126, 


0, 


(33> 


134, 


109, 


0, 


1.0 


ill, 


109, 


0, 


(30) 


121, 


105, 


0, 


0.1 


101, 


109, 


105, 


(32) 


211, 


126, 


109, 


(9> 


200, 


126, 


105, 


-2(0) 


165, 


105, 


loO, 


*3777 


101, 


106, 


0, 


(43) 


163, 


106, 


105, 





216, 


126, 


106, 


7(0) 


121, 


105, 


0, 


0,4 


101, 


106, 


105, 


(32) 


126, 


106, 


loO, 





127, 


106, 


0, 


*3777 


214, 


126, 


106, 


5(0) 


200, 


126, 


105, 


-4(0) 


125, 


105, 


0, 





125, 


105, 


0, 





121, 


126, 


0, 


(2/399) 


101, 


106, 


105, 


(44) 


121, 


126, 


110, 





121, 


109, 


105, 





125, 


109, 


0, 





125, 


109, 


0, 





163, 


109, 


0, 





163, 


109, 


0, 


*3777 2001 


113, 


109, 


105, 


(32) 


121, 


126, 


110, 






I MANCHESTER has I52, I09, 0, (3I) 



I Blister to shift up 2 more 
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O 



FIXED STORE COLUMN 4OC34 

<o> = 210*40034 



-'-^ 



o 



R704 



t Instruction counter monitor 



1) 



O 



(11) 


= 1000 






(12) 


= *6 






(13) 


= *01 






(14) 


= *1 






(2) 


= 9<3/303) 






(3) 


= (2/700) 






(4) 


= (21/303) 






(5) 


= (20/303) 






(6) 


= (9/205) 






(9) 


= (4/203) 






(10) 


= (3/203) 






101, 


100, 


0, 


(4> 


211, 


126, 


100, 


7(0) 


121, 


100, 


0, 


(I3) 


101, 


101, 


0, 


(7) 


113, 


0, 


0, 


(7) 


113, 


101, 


0, 


(4) 


121, 


102, 


0, 


(2) 


121, 


126, 


0, 


0.1(3) 


101, 


101, 


0, 


(8) 


165, 


102, 


101, 


""111 


215, 


126, 


102, 


6(0) 


124, 


101, 


0, 


0,1 


113, 


101, 


0, 


(8) 


121, 


101, 


100, 


(11) 


121, 


100, 


0, 


(I4) 


121, 


126, 


0, 


4(1) 


124, 


101, 


0, 


1*777 


113, 


101, 


0, 


(8) 


101, 


101, 


0, 


(6) 


101, 


102, 


101, 


(9) 


165, 


103, 


102, 


1023.4 


127, 


102, 


0, 


*7776 


101, 


105, 


103, 


(lO) 


122, 


105, 


100, 





170, 


105, 


0, 


(12) 


227, 


126, 


0, 


3(0) 


127, 


105, 


0, 


0.7 


124, 


105, 


0, 


(12) 


113, 


105, 


103, 


(10) 


124, 


103. 


0, 


0.4 


122, 


102, 


0, 


1024 


215, 


126, 


102, 


-9(0) 


110, 


100, 


101, 


(5) 


101, 


101, 


0, 


(7) 


214, 


126, 


101, 


4(0) 


124, 


101, 


0, 


0,1 


113, 


101, 


0, 


(4) 


113, 


100, 


0, 


(7) 


121, 


126, 


0, 


(2) 



4 sec. extra time 
Lov/est block timer 
Local time 
Total time 

Return to update timers 

Ptontior 

Check time 

Timers 

Program in store 

Store directory 

Block timers 

<- ENTRY 

JUMP IF NOT LOCAL CHECK 

SET MARKER LOCAL TIME EXCEEDED 

OVERFim'/ CHECK TO ZERO 
RESET CHECK TIRIER 

)EXIT TO R70O AND THENCE TO R303 

)JUMP IF COUNTER NOT EXHAUSTED 
) 

)ACCUTffl[ULATE ADDITIVE COUNT 
MODIFIED CHECK TIMER 
EIARKER OVERALL TIME EXCEEDED 
TO MONITOR 

)STEP TO NEXT SECTION 

)SET UP COUNTERS TO SCAN BLOCK TIMERS 

) 

) 

SUBTRACT CHECK TIMER 

)IF TOO SMALL REPLACE BY STANDARD 

) 

) 

)STEP THROUGH TIMERS 

) 

) 

FORM NEl'/ NUMBER OBEYED 

)FORM NH? CHECK AND OVERFLOW? CHECK 

) 

) 

) 

RETURN TO R303 
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o 



FIXED STORE COLUllN 40014 

(o) = 159*40014 



R703 



I Block monitor 



o 



<3) 
(6) 

<4) 
(5) 
(7) 
(9) 

(10) 

(11) 

(12) 

(13) 
(14) 
(15) 
(16) 

(17) 
(18) 



= 2,0 

= *03 

= (1/708) 

= (15/204) 

= (4/204) 

= (27/205) 

= (14/700) 

= (9/205) 

= (7/202) 

= ( 1/232) 

= (1/202) 

= (I/2I5) 

= (3/204) 

= (7/204) 

= (9/204) 



1) 


121, 


100, 


0, 


(3) 




101, 


101, 


108, 


(5) 




164, 


100, 


101, 


(6) 


2) 


101, 


101, 


0, 


(7) 




165, 


106, 


108, 


63=4 




210, 


126, 


101, 


(20) 




152, 


IC^, 


0, 


(11) 




225, 


126, 


0, 


(19) 




101, 


103, 


0, 


(12) 




216, 


126, 


103, 


(13) 




210, 


126, 


101, 


2(0) 




122, 


127, 


0, 


1 




165, 


101, 


loo. 


(6) 




215, 


126, 


101, 


(4) 




121, 


109, 


0, 


0„1(10) 




121, 


126, 


0, 


5(15) 


19) 


113, 


100, 


106, 


(17) 




113, 


101, 


106, 


(16) (17) 




121, 


100, 


0, 


5(^) 




113, 


100, 


lo5, 


(i6)(i6) 




121, 


108, 


0, 


64^2 





147, 


108, 


ic6. 


(18) 


113. 


108, 


106, 


(18) 




121, 


126, 


0, 


(I4) 


20) 


113, 


0, 


0, 


(7) 




121, 


108, 


109, 







167, 


108, 


0, 


»^4 




121, 


110, 


0, 


3(2) 




121, 


126, 


0, 


(9) 



Monitor mark-store exceed 

Compile Ss superviEor bits 

exit for extra block 

Switch directory 

/t maxker 

Free prosrasn 

Moni tor 

Current program in fitor© 

Bx'anch in dicator 

Branch block monitor 

Prog:ram ocan 

Set full recover Bv/itch 

Ifein programs 

Short dumps 

Status directory 



lExITRY FOR STORE EXCEED 

i ) COLLECT CCMPILE SUPERVISE BITS 

I ENTRY FOR LABEL PXCEED 
|)E]CIT IF NON EQUIVAI.EHCE 
I) 

I )EXIT IF PROGRAM NOT IH STORE CONTROL 

I )EXIT IF PROGRAM BRANCHING 

I) REDUCE M BY 1 IF NOT =/ 

DEXIT IF EXTRA BLfXK PERMITTED 

I )RESET FULL RECOVER ST/ITCH AND EXIT TO 

I R70O AND THEN PROGRAM SCAN 

!)SET UP PARAr.1ETERS FOR RESUMPTION 

!) 

Ki6)(l7) 
!) 

1 )RESUlVIE IN STORE CONTROL AND IN SUPERVISR 

i) 

[RESET =/ SV/ITCH 

IB1C8 = BLOCK LABEL p23=l 
[FREE PRODRAM 
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Section Q Extracodes 1300 - iy/ 7 



This section contains a print-out of the Atlas Extracode programs 
from 1200 upwards in Intermediate Input. These are, apart from 
residual errors and amendments which may from time to time prove 
desirable, in the form in which they will be loaded into the 
London and Harwell Fixed Stores. They are not an e:cact print- 
out of what is loaded in the Fixed Store of MUSE, Errors were 
found and improvement devised in a number of the extracodes in 
MUSE after they had been loaded, and the necessary changes were 
made making as few changes to the "hairbrushes" as possible. 
In some cases this involved inserting additional jump instructions. 
For the London and Harwell machines the instructions have to some 
extent been re-ordered to reduce the number of jumps and generally 
to tidy up the routines. At some date it may be possible to change 
the MUSE Fixed Store to render at least the arithmetic extracode 
part identical in all machines. However, the basic arithmetic is 
the same in all the computers. 

Sub-section 9. I contains a description of the linking sytem for 
the functional extracode subroutines. This has been written in ABL. 
A description giving further information about the methods of the 
extracodes, particularly the functional ones, will be issued later 
in the volume containing the routine specifications. 
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9.1 /I 
9,1 The Interlinking of the Functional E;gtracodes 

The routines for implementii^ the following extracodes are all 

interconnecteds- 






o 



1400 


ca' 


= log St 


1403 


ca' 


= exp ss 


I4I0 


ca' 


= sq.rt. s: 


I4II 


am' 


= arg s: 


I4I3 


am' 


= mod, ss 


I4I3 


ca' 


= s cos s*, s sin s* 


1700 


am' 


= log s 


I70I 


am' 


= log aq 


1703 


am' 


s exp s 


1703 


am' 


s= exp aq 


I7I0 


am' 


= sq.rt. s 


I7II 


am' 


= sq.rt. aq 


I7I3 


am' 


= sq.rt. <aq +s ) 


I7I3 


am' 


= am 


1730 


am' 


= arcsin s 


I72I 


am' 


= arcsin aq 


1722 


am' 


= arccos s 


1723 


am' 


= arccos aq 


1724 


am' 


= arctan s 


1725 


am 


= arctan aq 


1726 


am 


= arctan (aq/s) 


1730 


am 


= sin s 


I73I 


am' 


= sin aq 


1733 


am 


= cos s 


^733 


am' 


5= cos aq 



o 
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o 



o 



o 



9.1 continued 9«I /2 

These extracodes use five basic Subroutines, namely :- 

1. Square Root 

2. Arctan, arccot 

3. Log 

4. Exp 

5. sin, cos 

In the cases of 2 and 5 the required function is indicated by means 
of markers in various B-lines. 

All these subroutines are closed, i.e. exit is by means of a link- 
setting. Links are carried in B97. 

Thus a simple exit is 121 136 97 O 

For a simple extracode which only requires the use of a single 
subroutine, for example, 1720 to 1725, this exit will be to a 'dummy 
exit' instruction 52I O O O. In other cases, however, where 
operations are required afterwards, the exit will be to other routines. 
For example, 1713 (art**) requiires first that log am be formed, then the 
result multiplied by s, and finally the exponential of this product formed. 
In such a case, to save instructions to reset links, a system is used 
whereby a single setting of B97 will normally cause the correct exit 
through all relevant routines. 

The following is an outline of the complete system (in ABL notation). 
The entry points for all the extracodes are indicated, and all the link- 
setting and link- implementing instructions are shown. Also, an indication 
is given of the formulae used for the extracodes which call for more than 
one subroutine. 

These routines are not listed in the order in which they occur in the 
store; they are listed in an order which seems logical in order to expound 
the system of interlinlcing. Since the labelling system used is sequential 
throughout the extracodes it is easy to discover the absolute position of 
each group of instructions. 

In the annotations, the following notation is sometimes used for 
convenience, in addition to the standard Atlas notation: 

X and y for s and s* (i.e. the real and imaginary parts of s:) 

u and V for c(ba) and c(ba+I) (i.e. the real and imaginary parts of 

the complex accumulator Ca. ) 
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9.1 /3 



9.1 continued 



O 



o 



131 
121 
121 
121 
131 
121 

121 

121 

324 
121 
121 
121 

324 

121 

324 

121 

324 
121 
121 

324 
121 

324 
121 



126 
126 
126 
126 
126 



126 

o 

126 

o 

126 

126 



126 



o 

126 

o 

126 

o 

125 

126 



126 

o 

126 



o 
o 
o 
o 
o 
o 

119 

o 
119 

o 
119 

o 

o 

o 
119 

o 
119 

o 
119 

o 

o 
119 

o 
119 

o 



A670 


1400 


A469 


140a 


A625 


1410 


O.IA662 


I4II 


O.IA626 


I4I2 


O.IA469 


I4I3 





1700 


A587 


I70I 



o 

A364 

o 

O.IA629 

o,ia527 

A561 

o 

A678 

o 

0.7A578 

o 

A650 

O.IA663 

o 

O.IA544 

o 

A544 



1702 
1222 
1710 
1711 
1212 

i25a 
1720 



1721 
1222 
1723 
1724 
1725 
1726 

1730 
1231 
1232 

1232 



ca 
ca 
ca 

am 
am 
ca 

ajn 
am 
am 
am 
am 
am 
am 
am 
am 
am 
am 
am 
am 
am 
am 
am 
am 
am 
am 



JUMP TABLES 
= log s: u = log/(x^+y^), V = arctan <y/x) 
= exp ss u = exp x cos y, v = exp x sin y 
= sq.rt.s: u =j^(Kf <x^+ y^>+x)), v = y/2u 
= arg s: am* = arctan (y/x) 
= mod s: am' =^x2+y2) 
= s cos s*, s sin s* 



= log s Set aq' = s 

= log aq. 

= exp s Set aq' = s 

= exp aq 

=/s Set aq' = s 

:^aq 



=/(aq\s^ 



= am" am' = exp (s log am) 

= arcsin s Set aq* = s 

= arcsin aq am' = arctan (s//(I-:c)) 

= arccos s Set aq' = s 

= arccos aq am' = arccot (s/ /(I-x )) 

= arctan s Set aq' = s 

= arctan aq 

= arctan (aq/s) 

= sin s Set aq' = s 

= sin aq 

= cos s Set aq* = s 

= cos aq 



CJ 



ROUTINES 
623) 121 97 O -3A64O (14IO) Set link to exit to A640 

2 2 
626) --^ (I/^j:2) Set s* in A to form (s +s* ) in A 

627) (1712) Form <a^+s ) in A 

629) 210 97 126 -3A669 (1710/I) Set link to exit to A669 if not already set 

630) 

631) SQUARE ROOT 

Form / a in A 

121 126 97 3 Exit to b9743 

30,8.63 



v_y 



O 



9-1 /4 

9.1 continued 

5j.O) (1410 continued) 

„ Add X, multiply by 1/2 



643) 



I«X 97 O -3A643 Set link 

121 126 O A631 Jump to form/<i(/(x^+y^)+x)), exit to A643 

• Store as u, form y/2U, store as v 

756 132 95 O EXIT from I410 



650) 


. 


. . 


- - - 


- - - - 


(1724/5) 




121 


96 








Set marlser for arcTAN 




121 


97 





A669 


Set link to exit to A669 


652) 
































ARCTAN/COT 

Form arctan/cot a in A 

EXIT 














121 


126 


97 






662) 334 O 119 I (I4II) Set s* in a to form s*/s 

r^ 663) 210 97 126 A669 (1726) Set link to exit to A669 if not already set 

___--------- Form am/s 

131 126 O A652 Jump to form arctan 

669) 521 EXIT 

670) 121 97 O a68i (1400) Set link 

lai 136 O A626 Jump to form/(x^+y^, exit to 3A681 = A683 

^ / 2 

672? 233 126 O A676 (1720, I, 2, 3 continued) Jump if/(I-x ) jt O 

If=I, jump direct to arctan 

121 126 O A652 exit to A669 



576) 



/ 2 

(1720, I, 2, 3 continued) if /(I-x )f O, 

/ 2 1/ 

„ form x//(I-x ) 

121 126 A652 Then jump to form arctan. Exit to A669 
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9.1 /5 
9.1 continued 

678) (1720, I, a, 3) 

---~~----- Form I-x 

:^'~^ 121 97 136 A669-(*+1) Set b97 = A669, preserving marker from bI26 

165 96 97 0.2 Set marker for arcsin/arccos 

236 126 o A630 Jump to form/(l-x^) if l-x^ 0. Exit to 

3A669=a672 
Error exit if I-x < O i.e. x > I 

681) 356 122 O I (1300 continued) Store arctan (y/x) as v 

334 O O 4J7 Recover/fx^+y^) 

131 120 O A589 Jump to form log/fx +y ). Exit to A414 

683) 356 O 4J7 (1400 continued) Store/tf+y^) 

131 126 O A663 Jump to foiTii arctan y/x. Exit to a58i 

414) 756 123 O O (End of 1400) Store log Ax +y^) as u. EXIT 

V 

587) 131 97 o A537-A414+A681 (1700/1) Set link to exit to A537 

588) Standardize 

589) LOG 

(^ Form log a in A 

131 136 97 A414-A681 EXIT 

537) 531 EXIT 

561) 121 97 O A563-i^I4+A68I (1713) Set link 

235 126 O A588 Jump to form log am if a ?! O, exit to A563 

~ - lfa=0, prepare to set am* = O or EG 

~~~~~~~""---- depending on whether s > or <0 

131 126 o A575 Jump to complete, exit to A537 

563) 3^2 O 119 o (1713 continued) Form s x log am 

564) 131 97 O A563-A414+A681 (1703, 3 join) Set link to exit to A537 

565) 

EKP 

__ __ Form exp a in A 

Q 575) 

(tail) set EG if out of range 
131 126 97 A537-A563+A414-A681 Exit 
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311 


136 


136 


A565 


471) 356 


o 





3J7 


334 





119 


I 


121 


136 





A545 



9.1 /6 
9.1 continued 

469) 324 o 119 O (1403, I413) Set X in Am 
'J 121 97 O A471-A537+A563-A414+A681 Set link 

Jump if 1403 to form exp x. Exit to A471 

(Here directly with x in Am if I413; exp x if I403)Sto2 

Set s* in Am 

Jump to form cos s*. Exit to A584 

544) 121 97 136 -(*+i)-A584+A47i+A563-A4I4+a68i 

Set link to exit to A537, Preserve marker in bI36 

545) - '^ ■ SIN/COS 

„ j-Qj^ sj^jj a in A if b97 odd, cos a if even 

131 126 97 A584~A47i+a537-A563+A4I4-a68i Exit 

584) 362 O o 2J7 (1402, 13 continued) Multiply by x (1413) or 

exp X (1402) 

Store as u 

1 Bring out y 

3.I*-A584+A47I-A537+A563--A4I4+a68i Set link to exit to 2* 
A545 Jump to form sin y, exit to I* 
3J7 Multiply by x (1413) or exp x (1403) 
1 Store as v and exit 



o 



356 


133 





334 





119 


131 


97 





131 


126 





363 








756 


133 


6 



o 



\ 
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9.3 the 1300 Extracodes 9*2/1 

( 0=513*4 

l iaoo ba*=n if AO set, clear AO, Jump when Ace, free 

11301 ba*=n if AO not set, clear AO, Ditto 

I Floating-point zero 

1 1204 ba'=no. of identical chars, from m.s. end of g and s 

I 1206 ba'=n if m.s. char, of g=0. Extract ra.s, char. 
i)Set ba'=n if = O, otherwise 'set BO' Exit 

I) 
(1216) Subtract N From BII9, i.e. bII9'=bm 

)Jump to exit if bm < 

I) 

[Otherwise set ba=N and exit 

I 1316 ba'=n if bm > O 
1217 ba'=n if bm < O. bII9'=bra 
)Jump to set ba=N and exit if bm< 

I) 

1 Otherwise exit 

1223 ba'=n if Bcarry = I. Extract V6 
|)Set ba'=n if l.s. digit = I. Exit 

1226 ba'=h if bt>0. Add 0.5 to BI26 
U227 ba'=h if bt < O. Jump 3 or 4 if bt < 
iJurap 2 or 3 if bt=0 
I Set bI2I=0 if 1227 
iSet ba'=n if < O (I327), >0 (1226), Exit 

(1216 and 123^ if bt < 0), Exit 
1 133 4 °*=c+3 if am approx = s 
i 1235 c*=c+2 if am not approx=s 
I 1236 ba'=n if am>0. Add 0.5 to BI26 
{ 1237 ba'=n if am<0, Jump 3 or 4 if am < O 

Jump 2 or 3 if am=0 

Set bI2I=0 if 1237 

Set ba'=n if < 0(1237) >0(I336), Exit 

(I336 if am < 0) Exit 

Character masks 



1 1250 ba*=char. s in bits 0.5 

1 1251 s'=char4 in bits 0.5 of ba 

11252 Unpack n chark; Jump if n 7*: O, reduce n by I 

1 1253 Pack li chars. Ditto 
lExit if n = O 

11255. ^^' = n if m ?i O or I's, Store m 
I Store 1 

ISet exponent =12 

I Standardize, i,e. shift up 39 or more if m = O or all I's 
ISet bI2I=0 if shifted 39 or more places 
1 Recover m 
I Recover 1 

ISet ba'=n if shifted 39 or more otherwise 'set BO'Exit 
| I265 g'=(64)g+n,ba*= overflow. Shift ms^ 
iShift l.s. J 

lExtract formertopcbar.fromB98(overflow) 
{Remove it from bottom of B98 

lAdd former top char, of B99 into bottom of B98 
I Remove it from bottom of B99 
lAdd in n to B99 

|)Add in I at bottom of B98 if adding in n 
j ) set Bcarry 

lExit putting overfiov/ in ba, 

I Fixed point zero 3O.8.63 
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^ 



4) 



J.) 131 
116 
lOI 
137 
116 

131 
131 
106 
215 
131 
106 
131 
163 
215 
125 
301 
131 
521 
50) lOI 
310 
135 
163 
311 
125 
125 

51)^^3 
lOI 

165 
134 
134 
314 
123 

125 
303 
106 
107 
516 

52) 113 

134 
lOI 
165 

134 
124 
lOI 
lOI 

104 

125 

125 
135 

167 

311 

107 
105 
134 
300 

113 

300 

131 
303 
133 



91, 

91, 

91. 

91, 

91. 

131, 

123, 

92. 
91, 

91. 

126, 

91, 

9i» 
93, 

93, 
136, 

9i» 

136, 

92, 
133, 

91 » 

136, 

91, 

119, 

136, 

9i» 

91, 

133, 

133, 

91, 

93, 

92, 

92, 

136, 

93, 

91, 
136, 

91, 

91, 

91. 

123, 

121, 

91, 

93, 

123, 

93, 

93, 

92, 

94, 
136, 

94, 
94, 
94, 
91, 
136, 

94, 

94, 
93, 
136, 

94, 
93, 

94, 
136, 

95, 



o, 
o, 
o, 

91, 
119, 

o, 

98, 

119, 

91, 

99, 
119, 

o, 

91, 

93, 

o, 

92, 

o, 

93, 

119, 
119, 

o, 

119, 

iig, 

o, 

0, 

91, 
o, 
o, 
119, 

92, 
93, 

92, 
93, 
o, 

93, 
119, 

92, 
119, 

o, 
0, 
o, 

91, 

o, 
93, 
93, 
0, 

91, 

93, 

0, 

0, 

0, 

o, 

136, 

93, 
93, 

0, 

93, 

91, 
91, 

o, 
119, 

93, 



i.o 

6*6 

6*6 

1.0 

6*6 



o 

-7 
o 

o 

4(0) 

0.4 

-3 

*77 

4(0) 


-3(0) 

I 

7 


3(0) 

O 



3(0) 
o 

0, 

(99) 
(99) 

0.3 


-1.4 
4(0) 
0.4 
o 

-1(0) 

o 

1.4(77) 

o 

(99) 

0.4 

(99) 

0.3 

(99) 

o 
-1.4 

(99) 

o 



(1300) 

Reverse AO setting for 1300 

(I30I joins) Extract V6 

Mask out AO digit 

Clear AO 

Set bI3I=0 if AO digit = O (I200),-I(I30I) 

Set ba or bO=n, Exit 

(1304) Set count 

Copy ra.s, ^ of g to B9I 

Non-equivalent with m.s. | 

Jump if different 

If same, copy l.s. f of g 

Non-equivalent with l.s. \ 

Set counter 

Extract m.s, character 

Jump if non-zero 

Shift round 

Cycle back reducing 

Set b93 =1 when all 

Exit setting up ba 

(1350) Extract s 

Jump if k=I or 3 

Shift round if k=0 or 

bI19*=|s-s 



of s 

to B9I 
of s 



counter 
8 chars. 



same 



Jump if even, i,e, last 3 
)Shift twice more, i.e. 3 
) and 3 in 



digits of s same 
in all for k=3 
all for k=I 



Extract bottom char, which is required one and exit 

(1351) Store ba 

Set into B91 

Extract k 

)Shift up twice and subtract I. 4 

)i.e. b93=0, -0.4, -I. 0,-1,4, fo^ k=3,3,I,0 

Jump if = 0, i.e. k=3 (no shifting needed) 

Set b93=-(b93+0,4)=0,0.4,I,0, for k=3,I,0 

Shift round ba ) shift 1,3,3 

Cycle, counting in b93 ) for k=0,I,3 

Non-equivalent with s 

Mask out required character position 

Non-equivalent back into s, i.e. plant new char. Exit 

(1353,3) Store ba 

Step on BI3I to point at Ba* 

Set ba in B9I 

Extract char, position of start, =k 

Store ba* 

) 

)b93'=-I„4,-I. 0,-0,4,0 as k=0,I,3,3 

Set ba* in B93 

Set c(ba) in B94 
*40053I24lModified jump to shift 0,1,3,3 as k=0,I,3,3 

O 
O 
0,1 

(95) 
1.4(54) 



0.4 

4(0) 

o 

-1.4 

o 
-5(0) 

1.4 



[Force marker at bottom of B91 

I Jump if 1353 

1(1353 continued) Remove characters to be replaced 

I Shift required char. posn. to bottom add c(ba*) 

I Step on ba* 

iJump if b93 fi (not last char, of | word), add 0,4, 

I If end of I word, store b94 back in C(ba) 

I step on ba and reset count, 

I and clear B94 for next chars, 

I Cycle, counting characters 30,8.63 

Ib95'=-(fa93+1.4) 



9.2/3 



D 



214 


r 126, 


95, 


<97) 


lOI 


- 96, 


95, 


2<54) 


117 


96, 


91, 





104 


126, 


95, 


*40053i3 


135 


r 94» 


0, 





125 


94, 


0, 





125 


' 94, 


0, 





516 


- 94» 


91, 





200 


, 126, 


93, 


3(0) 


200 


. 93, 


91. 


-1.4 


lOI, 


94, 


91, 





95) 125, 


94, 


0, 





165, 


. 95, 


94. 


7.7 


"3. 


95, 


92, 





124 


92, 


0, 


0.4 


203, 


126, 


119, 


-7(0) 


521, 


0, 


0, 







+0 


/ 





34> 356, 


0, 


0, 


(99) 


234. 


126, 


126, 


5.0 


321, 


0, 


119, 





374. 


0, 


0, 


(99) 


366, 


0, 


0, 


(0) 


321, 


122, 


0, 





237. 


126, 


126, 


0.1 


210, 


126, 


126, 


2(0) 


134; 


127, 


0, 


I.O 


734. 


0, 


0, 


(99) 



|I2C0 Extracodes, Page 3 

1(1253 continued) Jump to exit if last char, fills | word 

lExtract mask 

iClear required char, positions in c(ba) 

iModified jump to shift 3,2 or I as final fc=0,I or 2 



iPlant into c(ba) and exit 

1(1252) Jump if b935?!0 (not last char, of ^ word), subtr.I 

I if end of ^ word, step on ba and reset counter 

1 Extract new c(ba) 

I (Entry) Shift char, to foot of B94 

[Extract character 

I Store in c(ba*) 

I Step on ba* 

iCycle, counting characters 

lExit 

1(1234,5) Store am 

I Jump 6 places if am=0 

I Subtract s 

I Divide by 'am' 

I Take modulus 

I Subtract C(ba) 

I Add O.I to control if <0 

I Jump if BI26 odd, i.e. approx = for I235, not for 1234 

I Add I to B127 otherwise 

I Recover am and exit 



<o 



30,8.63 



9.3 The 1300 Extracodes 



9.3/1 



5) 



^ 



334. 

121, 

130, 

376, 



768*4 
0, 

126, 
119, 
126, 



120 
121 
215 
376 

16) 335 
352 

18) 210 

365 

357 
216 

112 

334 
344 
501 

95) 

I) 356 
217 
300 

357 

'v^' 302 
_ 501 
120 
215 
120 
215 
120 
215 

113 

lOI 

147 

_ 121 

44) 216 

94) 521 

1 01 

113 

106 

572 
121 
521 

113 

102 

^,^ 106 

I J 107 

525 

521 

72) 121 

216 

120 

~ lOI 
113 



119, 
0, 
0, 
o, 



126, 119, 

O, 0, 



/ 
/ 
/ 
/ 

o, 






o 



119, 

126, 0, 

126, 119, 

0, 0, 

o, o, 

0, o, 

126, 95, 

o, 0, 

o, o, 

126, 119, 

0, 0, 

O, 0, 

O, 0, 

122, O, 
* 06404 / 

0, O, 



124, 

o. 

0, 

o, 
o, 

122, 
119, 



124, 
O, 
O, 
0, 

o, 
o, 

0, 



126, 119, 
119, o, 



126, 
119, 

126, 

o, ' 

122, 

91, 

91, 

91, 

126, 



119, 

0, 

119, 

o, 

o, 

119, 
o, 

119, 

0, 



126, 92, 

122, O, 



119, 

122, 

119, 

119, 

90, 

127, 

122, 

119, 

119, 

119, 



119, 
0, 
O, 
0, 

127, 
119, 

0, 

127, 

0, 

127, 



122, 119, 

0, 0, 

92, 119, 

126, 92, 

119, o, 

136, 0, 

119, 119, 

122, 0, 




(I) 

o 

<3) 

0.5(3) 

<5> 







o 



0.1(3) 

0.4(3) 

(5) 

<99) 

1(99) 
2(0) 

(0) 

(99> 
2(0) 

0.4(99) 

2(99) 

3<99) 

0,4(99) 

o 

(99) 
o 

(95) 
1(99) 

(95) 

(99) 

1.4(99) 



(40) 



(42) 

o 

0.1(40) 

o 

(99) 

o 

(99) 



(53) 

<97> 

o 
o 

(99) 

(99) 




o 

(99) 

-0.4 

(99) 

-0.4 

o 
o 
24 

(98) 

-23.7 

(46) 



(99) 



1 1300 ba'=int.pt,s, ani'= frac.pt.s. Put s in A 

1 1301 ba'sint^pt.aa, ain'=frac,pt,am. Jmnp 

1 1302 ba'=ba.n. Set blig's-n 

1 1303 ba'=-ba.n 

1 1304 ba'=int.pt(ba/n>, b97'=rem, Jvunp if i^O 
I Cause DO interrupt if nsO 



1312 ba'=ba,n (24 bit integers) Set bII9'=-n 



1313 ba'=~ba,n (ditto) 

1314 ba'=int,pt,(ba/n), b97*=rem, (24 bit int.) Jump nj^o 



Cause DO interrupt if n?:0 

(1302,3,12,13 continued) Set am'=-n 

Multiply by ba 

(1304,14 rejoin) Jump if 1304,12,13 

Shift down if 1302,3,14 

Store 

Jump if ba and n are same sign 

Negate answer if opposite 

)Restore A 

) 

Set result in ba and exit 
Mantissa 1/16 , exponent 26 
(1300,1) Store 



ay*=0 if ay<0 



e=26),le, shift integer to bottom of 1, 
I then standardize, i.e. shift up 
lone octal place, so octal fraction 
1 clear. 



Add number (m=:I/l6, 

Store al=int,pt 

Subtract number off 

am'=frac,part, 

ba'=int,part. Exit 

13^ Shift ba down n, (arithmetic, unrounded). bII9'=-n 

13 4I Shift ba up n (arithmetic). Jump if n/0 



1342 Shift ba down n (circular), bII9'=-n 



1343 Shift ba up n (circular). Jump if njiSO 

1344 Shift ba down n (logical), bII9'=-n 

1345 Shift ba up n (logical). Jump if np^o 



(1340-5) Exit if n=0 
134 7 h'=h V ba. Store ba 



h 

V ba 

Store as h' and exit 

1353 ba* = posn of m.s, I bit of n, 

(Logical shift down) Jump if n>-24(ice, -24<n<0) 

(Arith a log shift up, n>_ 24? log shift down, n<-24)Exit, ba=0 

1356 bt*=ba£h. Set h in blig 

I33Z. bt'=baj£n. Store ba 



h or n j4 ba 



Set bt and exit 

1362 Fast S/R entry. Set b90'=c+I 

Set bI27 and exit. 

1364 ba*=(ba & not n)v(bm & n), bII9'=(ba£bm)85 n 



Remove n from BII9, i.e. blig'^bm 

£ba 

& n 

£ ba i.e. ba'=((ba|ibm)& n)j^ba = required result, exit 

137I bI2I=Ba, bII9*=N+bm, Dummy 3- type extracode. 

(1343,3 continued, n<o) Set b92=n+24 

Jump if -24 j<n<0 

If n<-24, set bII9=|n| and mark odd, 

and jump to reduce mod 24 
1376 bt'=ba & h. Set h in blig 



1377 bt*=ba & n Store ba 



Qn.P«-6Q 



9.3/2 



^ 



"A 



lai, 

356, 
357. 



III, 
W, 

103, 

¥13. 

113. 

345. 
375. 
35S. 
3^4. 

IDI, 
2JI, 
130, 
131, 
163, 
163, 
137, 
1 34 J 
46) 165, 
3X5, 

.■ -216 , 

311, 
-: 130, 

97) 263, 

top, 

iI3I, 

-=•!:) 131, 
316, 

2^3. 



40) 113, 
lOI, 

316, 

131, 
^10, 

316, 

317, 
163, 

^47. 
lai, 

531; 

43) 113. 

lOI, 

317, 

J.2Z, 

316, 
98) 131, 
53) 131, 

113. 



119, 
119, 

95. 
O, 
O, 
119. 

ia6, 
119, 

119. 

0, 

133, 

97. 
136, 

97. 
119, 

o, 

136, 

o, 

o, 

0, 

o, 

97. 

136, 

97. 
126, 

93, 
93, 

119. 
119, 

93, 

136, 

119, 

136, 

136, 

119, 

126, 

93, 

91, 

91, 

136, 

93, 

136, 

119, 

91, 

126, 

123, 

91, 

136, 

93. 

136, 

126, 

136, 

93, 

91, 

136, 

133, 

133, 

91, 

125, 

119, 

136, 

136, 

133, 



O, 

O, 

136, 

0, 

0, 

0, 

119. 

o, 

0, 

o, 

0, 
0, 

97. 
0, 
0, 
0, 

95. 

o, 

0, 

o, 

0, 

o, 

119. 

0, 

o, 

0, 

o, 

0, 

93, 
119, 

93, 

0, 

119, 

119, 

0, 

1x9, 

0, 

93, 

o, 

119. 
119. 
93, 

0, 

119, 
93, 

o, 

0, 

IJL9, 

119, 

136, 

91, 

93, 

0, 

93,' 

119, 

0, 

o, 
o, 

119, 
o, 

119, 
119, 
o, 
o, 



(99) 



-(o)-i.4 
3(99) 

3(99> 

0.4(99) 

2(0) 
0.4(99) 

4 

(99) 

i.4<99) 

1.4(99) 

3(0) 

1.4(99) 

0.1-4 

1(99) 

(16) 

1(99) 

(99) 

(99) 

(o) 

0.4(99) 

(lO) 



(18) 





31.3: 


-33 

-5<o) 

34 

-1(0) 

3(0) 

-33.7 

<45> 


0.3*4005315 
(99 > 

<45) 

-34 

(94) 



*40052i5 

C45) 
(99) 

(99) 
(41) 

(^i4> 

(4=p 

4(0) 

o 

0. 3*4005315 

(45) 

-0.1 
(99) 
(99) 

(/3) 

34 
(4S) 

(45) 

0.1*4 

3*6 



1300 Extracodes, Page 3 
(1376,7 continued) h or n gs ba 
Sot bt and exit 

(1302,3,4,13,13,14) Set «iark in B95 
) Preserve A 
) 



Jump if n > )|n| in store 



Store n 



) 



Store -n 

BII9'=*4 



) 



j. if n<0, =0 if n >^0 
Set exponent and top of mantissa for |n| 
Store ba 
b97'=-ba 
Jump if ba >^0 

Store -ba, i.e. |ba| in store 

bII9' odd if ba<0, -vo if ba and n are of different ^^ 
Set exponent and top of mantissa for lba| 
Jump if 1303,3,13,13 

(Here if division (1304,14)) Sot |ba| in L, clear M 
Divide by |nl. Result in L, remainder in M 
Store remainder 
Shift up quotient 
Set b97=remaindGr 
Jump to adjust answer if ba>0 
Set remainder -ve if ba <0 
Jump to adjust answer 

(Reduction loop for 13-^-3,3) If M?J0, set b93=l6M 
b93'=:8M 
Set bII9=m 

bII9'=oJ(I+m, i.e. have removed 34I>I 
(Enter here) Regard bII9 as 33M+ra. Extract 32M 
Jump back if M?40 

If M novif = 0, subtract 34 from m. 
Subtract a further 24 if still +ve 

) 

)Sot bII9 = (-34+1 n| reduced) if n<0 

Jump to shift 

(Log, shift down,n>-24) Halve b93 

Preserve ba v/here zeros needed 

Set zeros at foot of ba 

Jump to shift 

(Arith and logical shift up) Set b93=ba-34 

Jump if n>0 

(ba<0) Halve n as mod for engineers test constants 

Set zeros at top of ba 

Jump to shift 

(1340,1,3,4)) Set b9I=ba 

) 
Jump if n>0 to shift up 
Sot b93 =n+33.4 
Jump if logical shift down 

(Arithmetic shift dovm) Jump for logical shift if ba£' 
(Arithmetic shift dovm, ba<0) Jump if n<-34 
Halve b93 as mod for eng. tests consts. 
' ' or ' ' ones to foot of ba 
Jvunp to shift 

(Arithmetic shift down ba<0, n<-34) Set ba =-0,I and 
(1343,3)) Set b9I=ba 

) 
Jump if n<0 
(n>0) Subtract 34 

Jump to reduce mod 34 if not 0<n<24 
Jump to shift if 0<n<34 or -34£n<0 
(1353) Sot ba digit 33=1. Interrupt if Ba=I36 
Inhibit interrupts 

, - 30.S.63 



9' 3/3 



43)" 



u 



45) 



lai. 


133, 


119, 





131, 


IS3, 


133, 





513. 


0, 


0, 


3*6 


125, 


91, 


0, 





135, 


9^, 


0, 





135, 


91, 


0, 





531, 


123, 


91. 





163, 


91. 


0, 





163, 


91. 


0, 





163, 


91. 


0, 





163, 


91. 


0, 





163, 


91, 


0, 





121, 


126, 


0, 


2(43) 


163, 


91, 


0, 





163, 


91 > 


0, 





163, 


91, 


0, 





163, 


91, 


0, 





163, 


91. 


0, 





121, 


126, 


0, 


1(43) 


163, 


91, 


0, 





163. 


91, 


0, 





163 f 


91. 


0, 





163 > 


91, 


0, 





163; 


91, 


0, 





121 > 


126, 


0, 


<43) 


163, 


91, 


0, 





163, 


91. 


0, 





163, 


91. 


0, 





163, 


91, 


0, 





163, 


91, 


0, 





52t, 


122, 


91, 






1300 Extracodes, Page 3 
(1353 continued) n -> BI33 
BI23 -> ba 

De-inhibit interrupts and exit 
(Shift table) 



Exit 

(Here for shift up one) Shift down one 

(Two) down one 

(Three) down one 

(Four) dov/n one 

(Five) down one 

(Six) Jvimp to shift up six and exit 

(Seven) Shift down one 

(Eight) down one 

(Nine) down one 

(Ten) down one 

(Eleven) down one 

(Twelve) Jump to shift up 13 and exit 

(13) Shift down one 

(14) down one 

(15) down one 

(16) down one 

(17) down one 

(18) Jump to shift up 18 and exit 
(19, i,G, down 5) Shift down one 
(u,30, i,e,d,4) down one 

(u,3I, i,e.d.3) down one 
(u.23, i.e.d42) down one 
(u,33, i.o.d.l) down one 
(u,24, i.e.d.o) Bet bgi in ba and exit 



?i6.8.6^ 



9..> The 1400 Extracodes 



9.4/1 



(0) =1024*4 






131, 


126, 


0, 


<i/i6oo) 







/ 





121, 


126, 


0, 


(2) 


324, 


0, 


119, 





" -^356, 


122, 


0, 





2S-^325, 


0, 


119, 


I 


756, 


122, 


0, 


I 







/ 





121, 


126, 


0, 


(10/1600) 


121, 


126, 


0, 


0.1(11/1600) 


121, 


126, 


0, 


0.1(12/1600) 


121, 


126, 


0, 


0.1(2) 


121, 


126, 


0, 


(14) 


314, 


0, 


119, 





352, 


0, 


119, 


I 


757. 


0, 


119, 


0.4 


121, 


126, 


0, 


(20) 


324, 


122, 


0, 


I 


321, 


0, 


119, 


I 


121, 


126, 


0, 


(21) 


121, 


126, 


0, 


(24) 


335, 


0, 


119, 





356, 


122, 


0, 





121, 


126, 


0, 


(25) 


203, 


126, 


119, 


(30) 


203, 


126, 


119, 


0.1(30) 


203, 


126, 


119, 


0.4(30) 


203, 


126, 


119, 


0.5(30) 


203, 


126, 


119, 


(34> 


■ ^52:1, 


0, 


0, 





O203, 


126, 


119, 


0.4(34) 


203, 


i:^. 


119, 


o.5<34) 


521, 


0, 


0, 





113, 


122, 


119, 


0.4 


121, 


92, 


0, 


*03 


101, 


91. 


119, 


0...;. 


217, 


92, 


91, 


*03i77777 


513, 


92, 


119 » 





24) 524, 


0, 


119, 


I 


356, 


122, 


0, 


I 


324, 


0, 


119, 





95) 756, 


122, 


0, 





34^. 


0, 


119, 





121, 


126, 


0, 


(47/1700) 







/ 










/ 





324, 


122, 


0, 





356, 


0, 


119, 





324, 


122, 


0, 


I 


756, 


0, 


119, 


I 


334, 


122, 


0, 





562, 


0, 


119, 





356, 


0, 


0, 


(99) 


121. 


126, 


0, 


(62) 


121, 


126, 


0, 


(66) 




122, 
0, 


0, 
0, 


1(99) 
(99) 


lOI, 


91, 


0, 


1(99) 


121, 


126, 


0, 


(67) 


121, 


126, 


0, 


(/p:/i7oo) 


347, 


0, 





(0) 


121, 


126, 


0, 


(81/1700) 


121, 


126, 


0, 


0.1(80/1700) 


121, 


126, 


0, 


0.4(77/1700) 



1 1400 ca'=log s: 



1402 ca'=exp s: 

1403 ca'=conj s: ) 

) Transfer real part 
(1425 continued joins)) 

) Negate and transfer imag, part. Exit 

l^jJO ca' =sq,rt. s: 

I^jJI am'=arg s: 

1.412 am'smod s: 

I 4J3 ca'=s cos s:, s sin s* 

1^.0:4 ca'=i/s: 

I^t/) Pseudo-Random Number. Set s in A 

Multiply by s*, double-length, non-standardized 

Store l.s,'^ in s or s*. Exit 

I<!.30 ca'=ca+s; 

1^121 ca'=ca-s: 

Subtract imaginary parts 

Jump to continue 

1424 ca'=s: 

1425} ca'=-s: ) 

) Negate and transfer real part 
Jump to negate and transfer imaginary part and axit 

1430 s(l) '=s(l)+s(2) , ) 

1431 s^(l)'-£(2) )Jump reducing bII9 by I 

1432 s(l)'=:am.s(2) ) if i^O 

1433 s(l)'=s(l7+ara.s^(2)) 
I^;34 id) '=s(2) ) 
Exit if n=o 

1436 am'=sum £ (li).s(2i) )Ditto 

I.:;3y a'=sum ^(li) .s(2i) ) 

Exit if iteO "" 

l.-U^ _ sx'=ba, sy'=I2. Store ba in l.s.^ of s 

Set exponent =12 

Set ba in B9I 

Propagate sign digit into m.s.^ 

Store exponent and propagated sign digit in l.s.A of s. Exi> 

(1424)) 

) Transfer imaginary part 
) Transfer real part and exit 

) (Also end of 140OJ store am in c(ba) and exit) 
1452 m'-m.sx times 8 to(ya+ys-ba) , ya'=ba (X) 
Multiply m by s and jump to set exponent 



1456 s: '=ca ) 



) Transfer real part 
) 

) Transfer imaginary part and exit 
1462 ca'=ca.si ) 

)Form product of real parts 
Store 

Jump to continue 
I..;J66 a'=C(s+bm+ba).C(s+bra) + a 
I.:i67 am'=Polynomial sum. Store ba =no. of terms 
Store am. Set am =0 
Set count in B91 
Jump to polynomial loop 

1473 m'=(xa/xs) times 8 to (ya-ys-ba), ya'=ba (X) 
l^if/4 C(ba')= quotient (am/s),am'= remainder (X). Clear 1 
I^^ C(ba')=quotient (a/s) ,am'=r0mainder (X) . 
1476 C(ba')= quotient) ([am]/s) ,am'=remainder (X) 
I.::77 Remainder and Adjusted Integral Quotient after divisic 

c?o_8.fiq 



9' J /<? 
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J..;.? 



J 



20) 



3D 



6a) 



O 



66) 



30) 



o 



31) 



3?^> 



334. 


0,. 


US, 





36a, 


0, 


119, 





356, 


0, 


0, 


(99) 


334. 


0, 


119, 


I 


362, 


0, 


119, 


I 


320, 


0, 


0, 


(99) 


356, 


0, 


0, 


1(99) 


325. 


0, 


119, 


I 


374' 
35^. 


0, 


0, 


1(99) 


122, 


0, 


I 


324, 


0, 


119. 





374. 


0, 


0, 


1(99) 


756. 


122, 


0, 





324. 


122, 


0, 


I 


330, 


0, 


119, 


I 


356. 


122, 


0, 


I 


324. 


122, 


0, 





320, 


0, 


119, 





756, 


122, 


0, 





356, 


122, 


0, 


I 


324. 


122, 


0, 





321, 


0, 


119, 





756. 


122, 


0, 





334. 


122, 


0, 


I 


363. 


0, 


119, 


I 


320, 


0, 


0, 


(99) 


356. 


0, 


0, 


1(99) 


334, 


122, 


0, 





362, 


0, 


119, 


I 


356. 


0, 


0, 


(99) 


334. 


122, 


0, 


I 


362, 


0, 


119. 





320, 


0, 


0, 


(99) 


356. 


122, 


0, 


I 


334. 


0, 


0, 


1(99) 


756, 


122, 


0; 





356, 


0, 


0; 


(99) 


355. 


0, 


0, 


<0) 


356, 


0, 


0, 


2(99) 


324. 


0, 


119. 





342, 


122, 


119. 





121, 


119. 


0, 





121, 


126, 


0, 


(68) 


121, 


92/ 


126, 


-i.4-(o) 


113, 


122, 


0, 


(99> 


124, 


121, 


0, 


0.4 


Id, 


91, 


0, 


(99) 


216, 


126, 


93, 


(32) 


210, 


126, 


92, 


(31) 


324. 


91. 


119. 





320, 


122, 


119. 





356, 


91, 


119, 





203, 


126, 


119, 


-3<o) 


'521, 


o> 


0, 





324, 


91. 


119. 





321, 


122, 


119. 





356, 


91. 


119. 





203, 


126, 


119, 


-3<o) 


521, 


0, 


0, 





356, 


0, 


0, 


(99) 


211, 


126, 


92, 


3(0) 


131, 


126, 


0, 


(33) 




91. 


119, 


I 


324, 


122 


119 






I (x.^4) s 

ls,s 

1 store 

|s* 

|s*,s* 

lAdd s.s. 

i Store 

1-3* 

[Divide by (s.s + s*.s*) 

1 Store as imaginary part of result 

'^ 

I Divide by (s.s + s*.s*) 

1 Store as real part of result. Exit 

I (1420) 

I Add real parts 

I Store 

lAdd imaginary parts 

I Store and exit 

1 (142I continued) Store imaginary part of result 

I Subtract real parts 
I Store and exit 

I Negative product of imaginary parts 

I Add product of real parts 

I Store temporarily (=real part of result) 

I) 

1) Form sum of 'cross-products'. 

I) 
I) 

1 Store as imaginary part of result 

1> . -^ 

DExtract and store real part and exit 

i (1466) Store am 

I Shift up 1 

I Store 

|C(G+bm) 

1 times C(s+bm+ba) 

I Got bII9=0 

iJump to add a 

1(1430,1,2,3) Set mark in b92 

I Store ba 

I Step on BI2I to point at Ba* 

I Set b9I=ba 

iJump if 1432,3 

iJump if 143I 

I (1430 continued) s^Ii 

I +s2i 

I Store in £li 
I Cycle, counting 
I Exit 

I (I/.3I continued) sli 
|-s2i 

I Store in £li 
I Cycle, counting 
I Exit 

1(1432,3 continued) Store am 
Ijurap if 1432 into loop. 
I (1433 continued) Jump into loop 
• I (IA32 loop) Store in £li 
KEiiter here ) s2i -0.8.63 



9,4/4 



O 



(o)=*400335o 



102, 119, 137, -0.4 

51) 131, 91, 137, O 
131, 137, 119, 0, 



531, 


1^3, 


91. 


1 


(0)=* 


400333 


4 




54) 5^3, 


119 » 


0, 


6*6 1 


55) 107 r 


119, 


0, 


6*6 1 


531, 


133, 


119, 


1 


57> 3[i3, 


133, 


0, 


(99) 1 


lOI, 


91, 


137, 


1 


165, 


93, 


9:^, 


3047 1 


135, 


91, 


0, 


1 


135, 


91, 


0, 


1 


lOI, 


93, 


0, 


(99) 1 


301, 


J36, 


137, 


3(0) i 


164, 


93, 


91, 


53:1.4 1 


lOI, 


.94, 


93, 


1 


107, 


94, 


137, 


-0.4 1 


136, 


94. 


119, 


1 


314, 


136, 


94. 


3(0) 1 


^ 303, 


136, 


93, 


-5<o> 1 


^ 131, 


93, 


0, 


*4 1 


531, 


133, 


93, 


1 


76) 131, 


91, 


0, 


3 1 


131, 


■ 126, 


0, 


*40(^003 1 
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(II03) Subtract a from bll9 i«®« bII9'=bm 

(1100,1101 join) Set b9l'=c+I 

Set c'= bII9 (=s,n,bm for 1100,1101, 

II03 respectively) . 
Set ba'=c+I (from bgi) and exit 



(lI34)Set n in V6 and exit 

(II35) bII9'=v6 & n 

Copy to ba and exit 

(II31) Store ba 

Set C(c+I) in B91 

Set 1 (count) in B93 

) Shift k to integer position in B9I 

) 

Set ba in B93 

Jump into loop and increase bI37 by I 

Add k to b93 

Set C(b93) in B94(first time C(ba), then C(ba+k) etc) 

Mask b94 with m (=0(0+1,4)) 

Non-equivalent with n 

Jump if zero i,e. test successful 

Cycle if non-zero, counting from 1 till zero 

If still unsuccessful after 1 cycles, prepare to set ba=*^4 

Exit with ba=address of successful |word (*4 otherwisp) 

Error exit (x<0) for LOG. Set marker 

Jump to monitor 



o 



30.8.63 
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o 



362, 0, 0, (99) 
2103, 12^, 119, -3(0) 
756, 91, 119, o 
356, 91, 119, I 

33) 334, 123, 119. 

363, o, o, (99) 
320, 91, 119, 

203, 136, 119, -4(0) 

756» 91. 

34) 131, 93, 
113, 133, 0, 
134, I3i, 0, 
loi, 91, o, 
3i5, 126, 93, 

113, 133, O, 

103, 91, 0, 
23:7, 126, 91, 
loi, 91, 0, 
334, 132, 119' 
356, 91, 119, 
203; 136, 119, -2(0) 
521, 0, o, 
133, 93, 1x9. 

104, 119, o, 
120, 91, 119, 

334; 91. 93, 

356, 119, 93, 

201, 136, 92, 

96) 521, 0, o, 

36) 346, o, o, ■ 

210, 125, 92, 

356 i 0, 0, 

324, 122, 119, 
363; 91. 
3^0, 



119, 
136, -i.4-(o) 
(99) 

0,4 

(99) 

<36) 

1(99) 

1(99) 

6(0) 

(99> 



o 





(99) 







-2(0) 



(0) 

(37) 

<99> 


119, 



o. 



^^-, , . <99) 
203; 126, 119, -4<o) 
531, 0, 0, o 



37> 356 i O' 

355? o, 

35S, o, 
334 

-343'' 9T, 

68) 356; o, 

355' 0, 
330, 
35G' 



0, 

o, 

0, 

300, o, 






356. 0' 

355' 0, 

300, 0, 

310, 0, 
303, 

53X 



o, 
o, 
0, 
122, 119, 
1x9, 
o, 
o, 

0, 
0, 
0, 

o. 
o, 

0, 

o, 

0, 

126, 119, 



^ . 0' 0, 

67) 362, 0, o, 

320, 119, 91, 

203, 126, 91, 

521, 0, 0, 

2) 324' 0' 119. 

121, 97' 0, 



(99) 

(o) 
2(99) 




1(99) 

<o) 

2<99) 

3<99> 
(99) 
1(99) 
4(99) 

(0) 

3(99> 
4(99) 

(37) 


(99) 



-2<0) 

O 



*4003C30 



211, 126, 136, (36/1500) 

75) 356' 0' 0' 2(99) 

334, 0, 119, I 

121, 126, o, (8S/1500) 



1(1432 continued) Multiply by "am" 

iCyclG, counting 

I Store last element and exit 

I (1432 loop) Store in £li 

I (Enter here) £3i 

I Multiply by "am" 

I Add £li 

I Cycle, cocintiag 

I Store last element and exit 

1(1434,6,7) Set mark in B93 

I Store ba 

1 Stop on BI2I to point at Ea* 

ISet ba in B9I 

IJump if 1436,7. 

1(1434 continued) Store ba* 

Iba-ba* in B9I 

lJump if ba*>ba, i.e. if transfer backwards 

I Set ba in B9I 

I (loop) Extract element from £2 starting at highest ad'. 

I Store in £l 

I Cycle, reducing modifier 

I Exit 

|(ba*>ba) Set b92=-(n-l) 

ISET ba+(n-l) in BII9 

ISet B91- ba+n-I-(ba~ba*),=ba*+n-I 

I (loop) Extract element from s3, starting at lowest aaa 

I Store in £l 

I Cycle increasing modifier 

I Exit 

1(1436,7 contiued) Sot zero in A 

IJump if 1437 

i Store partial sum (aero initially) 

I Extract s_2i 

I Multiply by sli 

|Add previous"'partial sura, single length, QR 

I Cycle, reducing modifier 

lExit with result in Am 

1(1437 continued) Store m.s.-^ of partial sum (zero init 

I Store l.s.i of partial sum 

I Extract s_2i 

iMultiply~by £li, double length, Q. 

|(l/;66 continued joins) Store m 

I Shift 1 into m 

lAdd c(3(99)) to "1" 

I Store 

|c((99)) 

lAdd "m" 

I Store 

I Shift up 1 

[Add sum of l.s. halves 

I Add m,3,-| of sum of ra.s. halves 

I Cycle, reducing modifier (not 1466) 

I Exit 

(Multiply by "am" 

jAdd coefficient 

I Cycle, reducing modifier 

I Exit 

1(1402,13) Set s in Am 

I Set link 

IJump if 1403 

I Preserve s 

ISet d*^ ill Am ■''.:■,, 

I Jump to form cos 30, 8.63 
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9.S/^ 



3 



(0)=I2oO*4 

131, X26, 0, 

121, 136, O, 

JJ5I, ia6, o, 

64) 762, 0, 0, 

121, ia6, 0, 

5) 3^6' o, 119, 

701, 0, X19, 

7) 362, 0, 119, 

35^' 0, 0, 

334» 0' O' 

362, 0, 119, 

320, 0, o, 

33^. 0' 0' 

324, 0, 119, 

343, o. ■ o» 

121, 126, o, 

121, 126, 0, 

121, 126, 0, 

22) 121, 126, 0, 

734. 0, o, 

121, 126, 0, 

119, 0, 

119, o, 

91, o. 

91, 119, 

91, 0, 

126, 126, 

12C', 0, 

126, o, 

126, o, 

0, 0, 

0, 0, 

O, 0, 

O, 0, 

125, 0, 

126, o, 

0, 0, 

0, 0, 

0, 119, 

O, 0, 

0, o, 

0, 119, 

126, 0, 

O, 0, 

0, 0, 
O, 0, 

0, 119, 

0, 0, 

0, 119, 
0, 119, 
126, 0, 

125, 0, 
O, 0, 

126, 0, 
126, 0, 
0, 119, 
126, 0, 
0, 119, 
o, 119, 
*4 / 

0, 0, 

126, 0, 
0, o, 

0, 0, 



I) 



25) 120, 

113 1 

317. 
113 » 

211, 

12,1, 

121, 

65) 35S. 
355. 

X2x, 
121, 

35S» 
355 » 

322:, 

35^. 

3S4» 
30^. 

121, 

53) 356, 
3^4. 

7^0 » 

356' 
355. 
35S, 
730. 

121, 
66) 237, 

740. 

121, 

121, 

334. 

237 > 
324, 
700, 



4) 

93) 



3^> 

121, 

356. 

355 » 



<3) 
<i) 
<2) 

(99> 

(4) 

I 



o 

1(99) 

(99) 

I 

1(99) 

1(99) 



(99) 

(80) 

I. I (25) 

0.1(25) 

<53) 

(99) 

2(0) 



0. 4(99) 

*03 

^03177777 

<99> 
<6o) 

9.4 

i.5<35) 

0.5(25) 

(99) 
(o) 

(98) 

(99) 

0.1(8) 

0.1(2) 

(99) 

(o) 

I 

1(99) 

(99) 



(80) 

1(99) 

(99) 

1(99) 

o 

(o) 

I 



0.1(62) 

(65) 

(0) 

(65) 

(66) 

o 

(5) 

I 
o 

(o) 

(75) 

(99) 
(o) 



1502 a'=-a+s: 
(1562) Multiply by n and exit 
OA a'=s; 



xs 



(1543,3) "1" 
Store 

"ra" 

Add "1' 'xs 

Store 

3 

a' = "m"xs 

Jxunp to add other components and exit 

ic;20 ajn'=ain+n. 

15^21 am'=am-n. 



5,00 a'=a+s: 



501 a'=a-3S' 



525 a'=-s! 



(1520,1 continued) jump to set am=:am+c(99) h exit 
(1534,5 continued) set ara'=c(99), l'=0 (X). exit 
1524 ara'=n,l'=o 



1535 am'=-n,l'=0 (Also 1521,35) Set bII9'=-n 



(1330.4.34 Joi») S^o'^^ ± " 

) Sot up most significant hall of (99) to 

) give floating point number from + n 

) with exponent 12 and sign copied up 

Jump if bI26 even (1524,5) 

Jump back to (22) if 1520,1 and to l(22) if I534»5 

1534 ara'=n,l'=o(X) 



1535 am'=-n,l'0(X) 

(1565) store m 

Shift 1 to m 

m'=t'l" 

Subtract "m" (i.o.a'=-a) and exit 

1542 a'=a.s: 

X543 a'=-a.s5 

(1501) Store m 

Shift 1 to m 

«'1""S*QR 

Store 

Bring out "m" 

' 'm' '-S in A 

Jump to add ("l"-s*) and exit 

(1520,1 continued) Store am 

Set 0(99) in A, standardizsed 

Add 'am' and exit 

1556 s:'=a. Store m in s 

Shi7t 1 to m 

Store ' • 1 " in s-i' 

Add back " 'ra" to restore a, 

1562 am'=am.n 

(1566) Jump if ax <0 

If ax >0, standardise and exit 

1565 a~=-a 



exit 



._., a'=|a| 

X507 a'=|s!|. Set am from s 



Jump if ax<0 to 1505 (a'=-ss) 
(also 1504) Set am from s* 
Add s (i.e. a '=33) and exit 
Floating - point zero 
1574 am'=am/n. Clear 1 



1575 am'=aq/n. 



ISIl 



125 am': 
vJ^ a'=: 



:a/£ 

Shift 1 to m 



Jump for 1574,5 
Store ra 



30.8.63 



CJ 



o 



35S, 


0, 


0, 


1(99) 


324, 


0, 


0, 


(99) 


374, 


0, 


119, 





355, 


0, 


0, 


2(99) 


343, 


0, 


119, 





35S, 


0, 


0, 


3<99> 


355, 


0, 


0, 


(0) 


35S, 


0, 


0, 


4(99) 


324, 


0, 


0, 


3<99> 


300, 


0, 


0, 


<99) 


320, 


0, 


0, 


4<99) 


320, 


0, 


0, 


1(99) 


35S, 


0. 


0, 


3(99) 


324, 


0, 


0, 


2C99) 


363, 


0, 


119, 


I 


320, 


0. 


0, 


3<99) 


374, 


0, 


119, 





700, 


0, 


0, 


2(99) 


75) 340, 


0, 


0, 


(0) 


35S, 


0, 


0, 


i(99> 


355, 


0, 


0, 


(0) 


35S, 


0, 


0, 


3(99) 


62) lai, 


9^> 


0, 


*03 


113, 


119, 


0, 


0.4(99) 


217, 


91, 


119, 


*03i7'/777 


113, 


91, 


0, 


(99> 


210, 


ia6, 


126, 


(64) 


324, 


0, 


0, 


(99) 


121, 


126, 


0. 


6(0) 


74) 340, 


0, 


0, 


(0) 


35S, 


0, 


0, 


i(99> 


355, 


0, 


0, 


(0) 


35S, 


0, 


0, 


3<99) 


324, 


0, 


'II9, 





35S, 


0, 


0, 


(99) 


334, 


0, 


■ 0, 


1(99) 


774, 


0, 


0, 


(99> 


50) 521, 


0, 


0, 





2) 35^, 


0, 


0. 


(99) 


355, 


0, 


0, 


(0) 


322, 


0, 


0, 


(98) 


311, 


0, 


0, 


(99) 


8) 356, 


0, 


0, 


(99) 


355, 


0, 


0, 


(0) 


210, 


126, 


126, 


(7) 


320, 


0, 


119, 


I 


356, 


0, 


0, 


1(99) 


324, 


0, 


0, 


(99) 


300, 


0, 


119, 





So) 356, 


0, 


0, 


(99) 


355, 


0, 


0, 


(0) 


300, 


0, 


0, 


I (99) 


710, 


0, 


0, 


(99) 


31) 121, 


97, 


126, 


* 0000672 


05) 34^, 


0, 


0, 


(97) 


217, 


12C), 


134, 


3(0) 


330, 


0, 


0, 


(96) 


355, 


0, 


0, 


(0) 


210, 


12!S, 


97, 


2(0) 


321, 


0, 


0, 


(94) 


362, 


0, 


0, 


(95) 


217, 


136, 


124, 


4(0) 


321, 


0, 


0, 


(95) 


217, 


126, 


124, 


2(0) 
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(1576 continued) Store «»1«' 

Bring back ' 'm' ' 

Divide by s, QR,=(ara/s)R 

Store 

Multiply by 5,=-<am/s)R x s 

Store m.s,^ 

) 

)Store l*s.J 

Bring back m.s.l 

Add • *in' ' 

Add l.s.^ of -(ain/s)R x s 

Add "1" 

Store, =:(a~(am/s)R x s) 

Bring back (ain/s)R 

Multiply by -s* 

Add 0(3(99) ),=(a-(ara/s)R x s)-(ara/s)R x s* 

Divide by s 

Finally add (ara/s)R and exit 

(1574,5) Standardize. 

Store in 

) 

)Store 1 

(1562 joins) 

)Set up n floating point in (99) 

) 

) 

Jump if bI25 odd (1562) 

(1574,5) n standardized in A 

Jump 

(1774,5) Standardize a. 

Store m 

) Store 1 

) 

s standardised in A 

(1574,5 rejoin) Store standardised divisor 

Bring back ra.s. | of dividend 

Divide and exit 

Dimrny exit 

(1502,1543) Store in 

Shift 1 to m 

Set m =~«'l' • 

Subtract "ra* ' (i.e.a'=-a) 

(1500,1542 join) Store m 

Shift 1 to m 

Jump if bI26 odd (1542,3) 

(1500,2) Add s« to "1" 

Store 

Bring back ' 'm* ' 

Add s 

(1501 joins, 1542,3 rejoin) Store ra 

Shift 1 to m 

Add C(l(99)) 

Add "m' ' an 

(1730,1,2,3) Set linl^ for exit to (96/I4OO) 

SIM/COS. Multiply by 1/271 



"m' ' and exit 



Jump if small (<I/8, i.e.x < 71: /4) 

Fix v/ith exponent 13 unless very large 

Take fractional part i.e. reduce mod 2 (zero if lar< 

Jump if sin 

If cos, subtract -I/4 (i.e. add % /2 to x) 

Jump if exponent - ve, i.e.<+l/8 

Subtract ^ (range-3/8 to 1/8 , i.e. -39? /2<X<7C /2) 

Jump if >-I/8 (x>-7c /2) 

30.8.63 



332, 0, 0, (94) 

356, o, o, <99) 

363, o', 0, (99) 

lai, 91, o, 4 

346, o, o, 1(99) 

310, o, 91, (93) 

342, o, o, 1(99) 

203, ia6, 91, -3(0) 

310, o, o, (93) 

342, o, o, (99) 

121, 126, 97, *7777o65 
97) *oooi3i37/*i4o667i2 

^) *O32000OO/*OO00O00O 

95) * 00040000/* 00000000 

94) *ooi6oooo/*oooooooo 

93) *004i444i/*76652i03 

92) * 00726521/* 03065616 

*oio5o632/*74oi53i3 

*oi354645/*664i6o23 

* 01252005/* 01240643 

*oi3o6330/'!-74i635oo 

91) *7673774o/*oooooooo 

26) 121, 97, 0, *40o4ioo 

126, o, 

o, 119 

124, o, 

124, o, 

126, o, 

o, 

97. 



rO 



235 
325 
235 

237 
121 

51) 342 

35) 121 

36) 360 
121 
217 
121 
216 

342 
330 
356 
113 

311 

342 

lOI 

356 
372 
356 
330 
372 
356 
334 
372 
121 

330 
301 

356 
334 
330 

374 
121 

356 
330 
342 
125 
163 
203 



(90) 

o 

*3 

*5 

(89) 
119, o 
o, «4004ioo 



o, o, <o) 
91, o, *4 
126, 124, 10(0) 



92, 124, 
126, 92, 
0, o, 



o, 

0, 

91, 

o, 

0, 

91, 

0, 
0, 

o, 
o, 

0, 

o, 
o, 

0, 

92. 

o, 

0, 

o, 
o, 

0, 

o. 



0, 

o, 

0, 
0, 

o, 
o, 
o, 
o, 
o, 
o, 
o, 
o, 
o, 

0, 
0, 

o, 
o, 
o, 
o, 
o, 

0, 



126, 0, 

o, o, 

o, o, 

O, 0, 

91, 0, 

91, 0, 

126, 92, 



*774 
-9(0) 

(46) 
(44) 

(99) 
0.4(99) 

(99) 
(45) 

(99) 

1(99) 

1(99) 

2(99> 
(49) 
1(99) 
(99) 

(47) 

2(99) 

2.0 

(48) 

(99> 

2(99) 

(99) 

<99) 
2(99) 

4(0) 
<99) 
<43) 

(99) 

o 

o 

-5(0) 



I 1500 Extracodes, Page 3 
^ ^ 9.5/3 

(Sin/Cos continued) If between -3/8 and -I/8V add I/4 

Store as y | (range + 1/8, or +7C /2 in 3t) 

y squared 

Set count 

Store y squared, clear A 

(Loop) Add ith coefficient to a 

Multiply by y squared 

Cycle, forming polynomial in y squared 

Add 0th coefficient, giving sin y/y 

Multiply by y 

SIN/COS EXIT 

I/27t 

+0, with exponent 13 
1/2 

-1/4 

) 

) 

)Coefficients for sin/cos 

) 

) 

) 

Constant for Log, -(256I) x8 to powe?: -8 

(1713) Set link 

Jump if a j^ O to form log am, exit tp (51) 

(a=0) Set -s in A 

If s < O, set exponent =:'+I92', preparing for EO 

If s >0, set exponent =*-I92', preparing for exp underflow 

Jump to tail of Exp to set EO or EU, exit to (50) 

(1713 continues) (Log am in A) Multiply by s 

(1702/3 join) EXPONENTIAL Set linlc to exit to (50) 

(1402 continued Joins) Standardize (=x say) 

Set *4 in B9I 

Jump if exponent negative (x small) 

Set b92 = exponent ~4 

Jump for out of range if exponent > 4 

Multiply by log e to base 8 

Add ^ and fix, i.e. (Int,pt)R+ in ^ word position 

Store 

Store *4 in l.s,^, i.e. clear frac.pt:. and add | 

Subtract from a, i.e. result =x log e -(lnt,pt)R+ 

Multiply by log 8 to base e, i.e. unscale remainder 

Set (Int,pt)R+ at bottom of B91 

Store a, =z say 

z squared 

Store 

Add p 

Multiply by z 

Store, =(z squared + p) z, =w say 

q 

Multiply by z squared 

Set count 

Add r 

Subtract w 

Store 

w 

2W 

2w/(qzz+r-w>, s= exp (z/8) -I approx 

Jump into loop 

Store, = V say) Generate successively 

Add 2 ) exp(z/4)-I, exp(z/2)-I 

Multiply by V ) exp z-I, keeping accuracy 

) Shift bgi up 5 places each time round the loop 

)i.e. end up with (Int,pt)R+ in exponent position 

Cycle 

30.8.63 



11500 Extracodon, Pago 4 



m) 



J0 
48) 

47) 
46) 
45) 
^i4) 
43) 
4«) 

15) 



320, 0, o, 

124, 124, 91, 

3^5> 0, o, 

34o» 0, 0, 

121, 126, 97, 



24) 
90) 

27) 



*oioi7oo6/*403i4262 
*oi2l7oo6/*403i4334 
*G046oG2i/*256i36o6 
*ooo366i6/*o4734i65 
* 002205057*3 10771 70 

*01200000/*40000000 

*00220000/0 

*00210000/0 

362, 0, 0, 
122, O, 

0, 119, 
97. 0, 
126, o, 

0, 0, 
122, O, 

97. o, 
126, o, 

0, 0, 

126, o, 

91, 124, 
124, o, 

0, 0, 



(42) 

*001 

(0) 

(0) 

7776445 



356 

3«4 

121 
121 

362 

755 

121 

237 
360 

334 

121 
121 

320 

356 

300 
374 

121 

113 
356 

362 
113 

346 

300 

342 
203 

300 



352 
300 
310 
362 

121 



0, 

o, 
o, 

93. 
91, 

0, 
0, 

o, 
o, 
o, 
o. 



o, 

0, 

o, 

0, 
0, 
0, 
0, 

o, 

0, 

92, 

0, 



41 ) 
40) 

39) 

60) 



126, 92, 

O, 0, 
0, 0, 

0, o, 

0, 0, 
0, 0, 

. 126, 97, 
*ooo265oi/*i7i46376 
*ooi22575/*4i463oo3 
*02220505/*31077170 
724, o, 0, (99) 



2(99) 



1 

^40036351 

(86) 

2(99) 

1 

=1=4004011 
(76/1400) 

(0) 

(76/1400) 

*4 

o 

(41) 
1(99) 

(40) 

1(99) 
6 

0.4(99) 

1(99) 

1(99) 

(99) 

2(99) 

(37) 

2(99) 

-2(0) 

(38) 

1(99) 

(99) 

(91) 

<39) 
=^■7776534 



<. jS) 
'37) 




o 








/ 
/ 
/ 
/ 
/ 
/ 
/ 



o 







o 



I v/ord posn. 



*76o75434/* 11670327 
*76o244ii/*3o520752 
*76oi4237/* 13253256 
*76olo63o/*ii27i374 
* 75666i7i/*3oi27354 
* 7566ioi5/*4oo2l262 
*7562l423/*02664l34 
*76oii735/*7454545i 



9.5/4 

|(E;cp continued) Add 1, i.o, roBult = oxp z 

lAdjust sxponont, adding (Int,pt)R+ +1, rosult =8 exp aq 

I) Shift doxvn to onGuro unstandardizod) result = oxp aq 

I) and sot EO or EU if appropriate ) 

lEXIT FROM EXPONENTIAL 

I) 

"DCoofficiontB for Exponential 

■I) 

jLog o to base 8 ) Constants for Exponontial 

lLog 8 to baso o) 

IConetant for Exponent. |,fixod with point at 

1+2 

j+1 

1(1402,13 continued) (cos s* in A) Multiply by s (I4I3), 

I or oxp s (1402) and store as real part of ca, 

iSot s* in A 

I Sot link to exit to 2(0) 

Uump to form sin s* , exit to 1(0) 

[Multiply by 3(1413) or oxp s (I402) 

] Store as imaginary part of ca and exit 

1(1700,1) LOG Sot link- to exit to (50) 

Uump for monitor if a<0 

1(1713 continued joins) Standardize 

1(1400 continued joins) Jump for monitor if =0 

ISot b9l'= exponent +256 

ISot exponent =0 

lAdd p 

1 Store x+p 

lAdd -2p, = x-p 

{Divide by x+p 

ISot count 

1 Store oxponont +256 in lower half of (99) 

1 Store (x-p)/(x+p), = z say 

1 Square 

iCloar top half of (99), i.o.c(99)=(Gxp +256) x 8 to power -8 

1 Store z squared, 

I (Start of loop) Add coof f iciont )Form 

[Multiply by z squared ) polynomial 

I Cycle )in z squared 

lAdd Oth coefficient 

1 Multiply by z, t: (log x+i log 8) x 8 to power -8 

1 Add (oxp +256) X 8 to power -8, double length 

lAdd -(256D X 8 to power -8 

iMultiply by ln8 x 8 to power 8; rosult = log x 

[EXIT FROM LGG 

1"p*' ) 

l-2p ) Constants for log 

1ln8 X 8 to pow^er 8) 

1(1524,5 continued) Sot am'=c(99) Q, and exit 

1) 

1) 

1 ) Spare 

]) 

1) 

1) 

1) 

DCoofficionts For Log, 

I) 

1) 

1) 

1) 

{) 30.8.63 



9.6 The 1600 Extracodes 
(o)=i536*4 
+0/0 

98, 119, o 

99, 119, 0,4 



9.6/X 



J 



D 



loi, 

501 » 
+0/0 

131, 

131, 

131, 
107, 

507. 
125, 

526, 

113, 

53:3. 

113 » 

113. 

734. 
24) 113, 

lOI, 

113 » 

734. 
121, 
+0/0 

121, 
+0/0 

147 » 

M7> 
6) ic6, 

S06, 

+0/0 

356. 

loi, 

501, 

92) 356, 

lOI, 

315, 

51:3. 
+0/0 

147. 
34i7, 
+0/0 
+0/0 
153, 
335, 
152, 



126, 
i^, 
is6, 
98. 

99. 
9S, 

99. 
98, 

99. 

98. 

99. 
0, 
0, 
91, 

91, 

0, 

126, 



lOI, 

163, 

572> 
5> 104, 

lOI, 

104, 
210, 

lOI, 

IS4, 
147. 

164, 

lOI, 

5S4. 

73> 

75) 

76) 

77) 



0, 
0, 
o, 

119. 

119, 

119, 

119. 

119. 

119. 

o, 

o, 

o, 

o, 

119', 

0, 

o, 

0, 



125, O, 



98, 

99. 
98, 
99 

o, 

98, 

99, 

o, 

92, 
93, 
92, 
92, 

98. 
99. 



119, 
119, 
119, 
119, 

o, 
o, 
o, 

0, 

o, 

9^. 

0, 

119, 

119, 

119, 



0.1(5) 

<5) 
(6) 



0.4 

o 

0.4 

o 

0.4 
(99) 

0.4(99) 

(99) 

0.4(99) 



(99) 

(99) 

(24) 

(93) 

o 

0,4 
o 



(99) 

(99) 

0.4(99) 

(99) 

0.4(99) 

O.I 

(99) 



o 
0.4. 



98, 119, o 
126, o, 3(0) 
go, 119, 0.4 
136, o, (96) 
91, 0, 6*6 
91, 0, o 
91, o, o 

99, 119, 0.4 

91, o, 6*6 
98, 119, o 

126, T2iO, 6(0) 

92, o, 6*6 

98, 91, o.i 
92, 0, 6*6 

99, 92, o.i 

91, o, 6*6 
98, 91, 0.1 
*ooo37777 / *7666oooo 
* 00037756 / *67i42547 
*ooo26'5oi / *I7I45376 
* 01300000 / *40oooooo 
*ooo400oo / o 



store ra.s, ^ 



A and exit 



lUnassigned 
I 1601 g'=s 
I Store l,s. a 
I Unassigned 

1 1604 g'=g+s Jtunp v/ith marker 

1 1605 g'=g+s "With end-around-carry 
Il6c6 g' =g £s 

g' = g&s M.S. 
§ and exit 



1 1607 



h 



IL.S. 

| l6ll g' = not g. M.S.I 

I L.S.I and exit 

I 1613 s'=g M.S. I 

iL.s. 4 and exit 

I 1615 am'=g M.S.I to store 

I L.S.I to store 

I Transfer to A and exjt 

1(1634) Clear l.s* | of word 

I Set b9I=h 

I Store bgi in m.s. | 

I Set am and exit 

1 162/}. am'=h 

lUnassigned 

11626 h'=am 

lUnassigned 

1 1630 g' = g & (not s) 

|g'=gvs 

I ( 1606 joins) 

lg'=:B^ s (=g & not s for 1630) . Exit 

I Unassigned 

I 1635 g'=am Store am 

iM.s. I in g 

IL.s. I and exit 

I (1636) Store am 

I Extract l.s.| 

iSot b93 =0.1 if l.s. fi O 

I Extract m.s. | of g, oring 0,1 at bottom if l.s.| ?J o 

l(i.e. Atlas type rounding) Store in h and exit 

lUnassigned 

I 1646 g'=gvs M.S. I 



[L.s,_§_and exit 



(fu 



nassigned^V 
}4I nas s i g X^eA__^' 
1 1653 bt' =g - s. Set bt from difference of m.s. halve: 
iJump if non-zero to ignore l„s. lialves 
llf zero, sot bt from difference of l.s. halves 
IJump to exit if zero 
I Extract V6 (l.s. digit = Scarry) 
I Shift Bcarry to sign position 
ISet'bt from Bcarry and exit 
1(1604,5) Add l.s. I halves 
I Extract V6 (l.s. digit = Bcarry for l.s.|) 
lAdd m.s. halves 
IJump if 1604 

I Extract V6 (l.s. digit = Bcarry for m.s,|) 
I Add carry from I.S.I into m.s.| 

I Set digit 23 of B92 =1 if Bcarry set by -l(o) or -4(0) 
lAdd into l.s.| 
I Extract V6 

1(1604 rejoins) Add final carry, if any, 
I) Ifrom l.s. I to m.s. |, and exit 
I )Goef f icients 
I ) for square root routine 
I) 
1+1 

30,8.63 



10) i63. 


93, 


119, 


"I 


i ■: 121, 


97, 


0, 


-3<47) 


la) 334, 


0, 


IIo, 


I 


337, 


93, 


93, 


0.1 


14) 35S, 


0, 


0, 


<99> 


r'^ 362, 


0, 


0, 


(99) 


0, 


0, 


1(99) 


324, 


0, 


119, 





362, 


0, 


119, 





3^0, 


0, 


0, 


1(99/ 


22) 310, 


97, 


125, 


-3(96) 


360, 


0, 


0, 


(0) 


94) 234, 


126, 


97, 


'\ 


337, 


125, 


0, 


(45> 


26) 165, 


91, 


124, 


*00I 


35S, 


0, 


0, 


(99) 


215, 


91, 


91, 


*ooo373io 


124, 


91, 


124, 


*ooo62343 


113, 


91, 


0, 


1(99) 


121, 


124, 


0, 





300, 


0, 


0, 


<75) 


34-2, 


0, 


0, 


1C99) 


121, 


92, 


0, 


I 


35S, 


0, 


0, 


1(99) 


334, 


0, 


0, 


(99> 


374. 


0, 


0, 


1(99) 


300, 


0, 


0, 


1(99) 


3^-iJ, 


0, 


93, 


(73) 


203, 


126, 


92, 


-5(0) 


356, 


0, 


0, 


1(99) 


343. 


0, 


0, 


i(99> 


v ) 310, 


0, 


0, 


(99) 


373, 


0, 


0, 


(76) 


374. 


0, 


0, 


1(99) 


302, 


0, 


0, 


i<99) 


121, 


126, 


97, 




+0/0 








45) 121, 


91, 


0, 


2.4 


121, 


i^. 


0, 


187*^.001 


'^v') ^ZS 


126, 


0, 


3<o)' 


35^^ 


122, 


0, 





75S, 


122, 


0, 


I 


35^^ 


0, 


0, 


(99) 


3S7, 


0, 


93, 





320, 


0, 


0, 


(99) 


3S2, 


0, 


0, 


^n^ 


121, 


95, 


0, 


*00I 


121, 


97, 


0, 


-3 (So) 


121, 


12&, 


0, 


(26) 


60) 107, 


95, 


93, 





214, 


126, 


95. 


4(0) 


121, 


95, 


0, 


-I 


211, 


126, 


93, 


2(0) 


322, 


0, 


0, 


(05) 


35s, 


0, 


0, 


(99) 


^ 3^4, 


0, 


93, 


I 


362, 


0, 


0, 


cri^ 


' 01/ ^f. 


0, 


0, 


(99) 


356, 


122, 


95, 


I 


120, 


95, 


0, 





324, 


0, 


0, 


(99) 


756, 


122, 


95, 





+0/0 








+0/0 









y<n+l)=|(x/y(n)+y(n)) 



9.6/2 
1x600 EXTRACODES, Page 3 

i (140:0) Set b93 foom bii9 removing octal fraction 

I Set link to exit to (47) 

i(l.p:2 joins, BI26 odd; 1400 cont.) Set a = sx, = v say 

I Set b93 odd if v<0 

I (1712 joins with BI;;^ odd) Store v 

|v squared 

1 Store 

Is 

I s squared 

I Add V squared |for 1413,1710,12 

1(1710,1 joins with BI36 odd) Set linlc to exit to<96) 

I SQUARE ROOT Round single length, = x' say 

1(1720,1,2,3 continued) Exit if a=0(short cut) 

iJump to error exit if a<o 

I (I4IO second entry) Least sig. digit of exponent to b9I 

I Store x' 

DSet 1st approximation to sqrt x' in 1(99), =yO say 

I):? 4th root of 1/8, v/ith | exp of x', if exp even 

l):*(l/o) to power 3/4, with exp J(bI24+l), if exp odd 

I Force bI24=0, giving a'^xo, say 

I Add constant 

i Multiply by yo to give linear approximation, =:yl say 

I Set count for two cycles of loop 

I Store y 

Ix 

[Divide by y 

[Add y 

I Multiply by ^ 

I Cycle 

1 Store )Last iteration 

[Multiply by -y, )y(n+l)=y(n) 

lAdd X double length )+Kx-y(n)squared)/y(n) 

I Multiply by -§ ) 

(Divide by y ) 

1 Negate and add y, d.l.) 

I SQUARE ROOT EXIT to b97+3 

i Spare 

I (Square root error exit, argument negative). Set marker 

iJump to Monitor 

iCl^JEO continued, with mod s: in A) Jump if yio (normal) 

I) If =0, set ca'=0 

I ) and eicit 

I If mod BX ^ Q, store 

lis! 

I Add mod s! 

I Set mask 

I Set link to exit to (60) 

IJump to form sq.rt(|(mod s: + |s|)) 

1) 

I (Jump if s^o, setting b95=0 

I Set b95r:-i if s<0 

{Jump if s';=>_0 

llf s and s* both <o, negate accumulator 

I Store, as z say 

I) 

I )is* 

I Divide by z 

[Store as real pt. of Ca if s<0, imag pt if >o 

I Negate b95 

Iz 

[Store as real pt, of Ca if s^O, imag. pt if <o. Exit 
1 Spare 
I Spare 

30.8.63 
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9.6/3 






o 



25) 360, 


0, 


0, 


(0) 


131:, 


96, 


0, 





131, 


97. 


0, 


(96) 


3) 234, 


135, 


0, 


(95) 


121, 


92, 


134, 


'^m 


256, 


i^, 


0, 


3<o) 


366, 


0, 


0, 


(0) 


126, 


96, 


0, 


0.5 


217, 


126, 


92, 


5(0) 


356, 


0, 


0, 


(99) 


334, 


0, 


0, 


(94) 


374, 


0, 


0, 


<99) 


125, 


97, 


0, 


0.1 


217, 


126, 


134, 


7<o> 


330, 


0, 


0, 


(81) 


356, 


0, 


0, 


(99> 


330. 


0, 


0, 


(80) 


3^2, 


0, 


0, 


<8i) 


374, 


0, 


0, 


(99) 


121, 


92, 


0, 


0.1 


356, 


0, 


0, 


(99) 


342, 


0, 


0, 


(99) 


121, 


91, 


0, 


z^.O 


346, 


0, 


0, 


I (99) 


300, 


0, 


91, 


(S3) 


34^, 


0, 


0, 


i<99) 


203, 


126, 


91, 


-2(0) 


330, 


0, 


0, 


(83) 


3<^, 


0, 


0, 


(99) 


211, 


126, 


92, 


3(0) 


330, 


0, 


0, 


(84) 


95> 211, 


126, 


97. 


3(0) 


40) 302, 


0, 


0, 


(85) 


300, 




96, 


0.3(85) 


211, 


135, 


96, 


2(0) 


302, 


0, 


0, 


(85) 


121, 


126, 


97. 





II) 334, 


0, 


119, 


I 


46) 210, 


9:^. 


i^. 


(96) 


356, 


0, 


0, 


(99) 


121, 


96, 


0, 





324. 


0, 


119, 





234, 


126, 


0, 


3(0) 


236, 


126, 


0, 


3(0) 


366; 


0, 


0, 


(0) 


121, 


96, 


0, 


1.5 


356, 


0, 


0, 


1(99) 


324, 


0, 


0, 


(99) 


374, 


0, 


0, 


1(99) 


121, 


125, 


0, 


(3) 


345, 


0, 


0, 


(99) 


234, 


125, 


97, 





237, 


96, 


0, 


0.1 


121, 


I^, 


0, 


(40) 


96) 521, 


0, 


0, 


(0) 


I) 121, 


97, 


0, 


(15) 


121, 


126, 


0, 


(13) 


71) 235, 


126, 


0, 


(93) 


324, 


0, 


0, 


3(99) 


342, 


0, 


0, 


(85) 


121, 


125, 


0, 


(95) 


+0/0 








+0/0 








+0/0 









I (l73.;/5) standardize 

I Set marker 

I Set linis to e3£it to Duirnny Exit 

l ARCTAN/COT . Jump to short cut ii£ =0 

iSet '092= GXponont minus one 

iJump if a >^0 

I Otherwise set positive 

land reverse digits 21,33 of B96 

I Jump if ix| <I 

1 ) Otherwise form 

I ) reciprocal 

1 )and reverse digit 33 of B97 

I) 

lJump if lx'|<I/8 

I Add I/u [ustan (|(arctan I/S+icAp)] 

i Store 

I Add -(u+I/u), i.e. result = x-u 

I Multiply by I/u 

i Divide by x+I/u. Result = (x-u)/(l-ux) 

IMark B93 odd for |x'|^I/8 

I Store as y 

ly squared 

ISet count 

I Store y squared, clear A 

1 (Povifer series loop) Add coefficient 

[Multiply by y squared 

I Cycle 

I Add first coefficient 

I Multiply by y 

I Jump if x' small 

1 Otherwise add arctan u (approx) 

IJump if b97 even 

I If b97 odd (cos, x<l; sin, x>i; tan,' x>l), 

I Add Q ov -"K iforra-7^/3-result 

IJump if b96 even (1731 to 5,x>;0;I4lI,I726, s>0) 

lOthearwise negate result 

I ARC TAN/COT EXIT to b97 

|(l4J:i,bI35 odd, and 1400 continued) Set s* in A 

1(1735, BI36 odd) Set linli to exit 

I Store a, =x say I for I^JJI, 1726 

I Clear marker 

Is 

I jump if zero 

IJump if >0 

I) If <0, take modulus 

I )and set marker 

I Store |s| 

I Bring back x 

I Divide by |s| 

IJump, form arctan, 140:1,1726 exit to (96); 1400 to (I'; 

I (Here if s=o) Set x in L, sign thro' M, exp unchngd (- 

lExit if a=0 (i.e.. if 3S=0 also) with result =0 

llf x?£0, set b96 odd if x < O 

jjump with A effectively containing zero, to form + % / 

I Dummy exit 

I (1400) Set linlc 

IJump to form sq.rt (s.s + s*.s*) . Exit to 3(l5)=(lcj 

1(1720,1,3,3 continued) Sq.rt (l-x.x) in A. Jump if ?4o 

I If zero, recover x C=^^),j 

I Multiply by7i/3 (a*=+ tc/2) 

I Jump to adjust for sin/cos. Exit to (96) 

I Spare 

I Spare 

1 Spare 
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3 



93) 



31) 



+0/0 

35S 

374 
121 

35S 



o 



15) 



18) 

80) 
81) 
82) 
83) 



84) 

86) 
8:7) 



373 
131 
310 
165 
336 

131 
121 

3S5 

334 
131 

356 

131 



O, 
0, 
0, 

136, 



0, 

o, 

0, 

o, 

0, 



1(99) 
3(99) 



1(99) 

(3) 

3(99) 

3<99> 



0, 
0, 

97, 135, -18 
o", 0, (87) 

95, 97, 0.2 

126, o, (94) 
91, o, 4 

T2^, G, 187*4001 

133, 0, I 

o, o, 4<99) 

135, 0, (37/1500) 

o, o, 4(99) 

126, O, (II) 

*oo3535S5/*6753ii23 

* oo330266/*657-^jJ5ii 
*ooo77777/*7777773i 
*ooi53535/*35332S76 

*oooi463i/*34747i75 
*ooi66674/*3366707"7 
*776S7345/*25ioo37i 
*7773503V*o54io^43 

* ooo3507i/*3i347463 
*003i4v.|4i/*76653i04 

*40000000/*00000000 

* 00346674/* 03353570 

*002I0000/*00000000 



Spare 

(1720-3 continued) a=Sq.rt(l-xx) , i^G) . Store 

X 

Divide by sq.rt(l-xs) 

Jump to form arctan/ cot . Exit to (96) 

(1733,3 with 0.7 in BI25;i720,l) Store aq (=x) 

Form -X squared 

Set linl: (exit to 3(96)=(7l)Form SQ.RT| exit to (96) 

Form I-x.x I Form arctan/ost) 

b96 '=0(1720, I) or 0.3(1732,3) 

Jump to form sq.rt(l-'X,x)",i£ >0. E^jitto 3(9^)?=(7I) 

lfl-x.x<0, Set mark 

and jump to Monitor for error. 

(1400 continued) a=arctan (s*/s). Store as imag.pt.of 

Bring back sq.rt. (s,s+s*.s*) 

Jump to form log. Exit to (95/1400) 

(1400 continued) a=sq,3rt(ss+s*.s*) . Store 

Jump to form arctan(s*/s). Exit to (15) 

) 

) 

) 

) 

) Coefficients for Arctan/Cot 

) 
) 

) 
)" 

7C/2 

Floating-point zero 

-7: 
+1 



00 '2 3 I/O 3 



2Xl\o 



p. 8.65 



o 



9.7 Tbe 1700 Extracodeg 

(0) =1793*4 

334» o» 

121, 126, 

334» o, 

121, 126, 

334> o, 

121, 126, 

334» 0. 

121, 126, 

324, o, 
121, 126, 
121, 126, 
121, 126, 
121, 126, 

355, o, 

325. 0, 
774. o. 
324, o, 
121, 126, 
324, o, 

121, 126, 

324, 0, 

121, 126, 

121, 126, 

121, 126, 

324, o, 

121, 126, 

324» o» 

121, 126, 

324, 0, 

121, 126, 

124, 126, 

356, 0, 
366, 0, 
321, o, 

237, 126, 

211, 126, 

124, 127, 

734. o. 

94) *o64 / 

96) *ooi / 

98) «4 / 

93) *ooo4 / 

121, 126, 

121 



9.7/1 



211 
121 
121 
121 
356 
762 
121 

131 
120 
121 

334 
236 

733 

97) 521 

121 

121 

347 
121 
121 
121 



126, 

126, 

126, 

126, 

126, 

o, 

o, 

126, 

126, 

119, 

126, 

o. 

126, 

0, 

0, 

126, 
126, 
o, 
126, 

121, 
126, 



119, 

o, 

119, 

o, 

119, 

o, 

119, 

o, 

119, 

o, 
o, 
o, 

0, 

o, 
o, 

0, 

119, 

o, 

119, 

0, 

119, 

o, 

0, 

o, 

119, 

0, 

119, 

0, 

119, 

o, 

0, 
0, 

o, 

119, 
126, 
I2S, 
o, 

0, 

o 

o 

o 

o 

o, 

o, 

124, 

0, 

o, 
o, 

0, 

o, 
o, 
o, 
o, 
o, 

119, 

0, 

o, 

0, 
0, 

o, 
o, 
o, 

0, 

o. 



(24/1500) 

o 

(35/1500) 



(5) 



(7> 

o 

0,1(22/1600) 

0,1(14/1600) 

(26/1500) 

(14) 
(99) 
(9S) 

(99) 



(21/1600) 



0.7(21/1600) 
o 

(25/1600) 
0.1(46/1600) 

(27) 



0.1(31/1500) 
o 

(31/1500) 
o 

*4oo440o 
0.5 

(99) 
(o) 

1.3 

2(0) 

I 

(99) 



<52) 

<53) 
<54) 
(55) 
(56) 

(57) 

(99) 

(99) 

(62) 

(63) 

o 

(65) 

o 

(97) 
(98) 
o 

(72) 

(73) 
(o) 

(74/1500) 
o 

(7^) 



1700 am'=log s. Set aq*=s 
I20I am*=log aq. Jump 1700,1 

1702 am*=exp s. Set aq'=s 

1703 am'=exp aq Jump 1703,3 

1704 a'=int.pt,s.Set a'=s 



1225, a'='iat.Pt,a,Jump 1704,5 

1706 a'ssign s Set a'=B 

1707 a'=sign a Jump 1706,7 
1710 am*=sq,rt,s Set aq' 



1712 am*=sq,rt,(aq.aq-i-o.s). Jump 

1713 am'=am to power S, Jump 
L7JL^ am'=I/s, Jump 

12.15^ am'=I/am. Store am 
Sat I in A 

Divide by ''am*' and exit 
1^20 am'=arcsin s. Set aq'=s 

1721 am'=arcsin aq. Jump 1730,1 

1722 am'=arccois s. Set aq'=s 



1711 am'=sq,rt,aq. Jump 1710,1 



1723 am*=arccos aq. Jump 1723,3 



1724 am'=arctan s. Set aq'=s 



1.725. ani'=arctan aq.Jurap 1724,5 
1226 am'=arctan(aq/s) 
1727 c*=c+I,2 or 3 as am >,=,< 
1730 am'=sin s Set aq'=s 



123,1 am*=sin aq. Jump 1730,1 
173 2 am'=cos s. Set aq'=s 



1733 am'=cos aq. Jump 1732,3 



»-c 



1734 am -tan s, Set aq'= 



1235 am'=tan aq Jump 1734,5 

1736 c'=c+2 if laml > s. Add 0.5 to bI26 

1737 c*=c+2 if lamj < s. Store am 
Form I am | 

Subtract s 

Jump if |am|-s<0, to 2(0) if 1737, to 3(0) if 173 6 

(|aml-s>0) Jump if 1737 

(1736, |am|-s>OJ 1737, |am!-s<0) Set c'=c+3 

Recover am and exit 

+0, exponent 26 

Floating-point -I 

Floating-point zero 

Floating-point +^- 

1753 ra'=ax, exp 12; ay*=ay -12 

125^ ax'=m, exp 125 ay = ay +12 

1754. Round am by R+, Q, Jump when A free 

1255 ax'=ax, exp (ay-n); ay'=n 

1750 s'=am,am'=s 

1 757 am'=s/am 

1760 am'=am squared 



m'=ax, exp 12 



iZ§3 

12^ ax*=m, exp -13 

1 754 ax'=ax, exp n* Set blig=-n 

17^ ax*=ax, exp -n^ Jump 1764,5 

I 7w am' = isi, X, Set s in am 

1757 am* = iaia|,X. Jump if a > O to exit 



Set a'=-ara+0, ie, negate am, and exit 

1771 bI3l'=Ba, bII9'=N4ba+bra. Dummy A-type extracodo 



1222 m'=(m.sx), exp 13? ay*=ay+sy-I2 

I222i rn^ ^iax/sK) , exp (ay-cy-I2)j ay '=13 

1274 ara'^^am/s. Clear 1 

1:174 am'=a/s. Jiunp 1774,5 

J222 Remainder and quotient. Set bI3I=0 

Jump 
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o 



54) 



5> 217 
710 

27) 356 
331 
234 
237 

734 
14> 325 

774 
57) 356 

324 

774 
101 

354 
300 
513 
53) 124 
63) 350 
345 

56) Si 

334 
356 

334 

35^ 

734 

72) 352 

5a) isa 

63) 121 

121 

,^., 121 

Ws) 121 

131 

41) 340 
356 
324 

35& 
324 
374 
47) 13.3 
101 

55) 123 

V2A 
125 

125 
65) 121 
217 
214 
120 

365 
214 
121 
217 
125 
125 
211 
123 

71) 340 
217 
203 
521 
121 
310 

357 



O 



124, 
0, 

Oi 

0, 

137, 
127. 
0, 
c, 

0, 
0, 
0, 
0, 

91, 

0, 
0, 

91, 
124, 

0, 
0, 
0, 
0, 

o, 

0, 

o, 

0, 
0, 

o, 

124, 
91, 

124, 
126, 
92, 

121, 
0, 

o, 
o, 
o, 

0, 

0, 

122, 

119, 

119, 

124, 

119, 

119, 

91, 

126, 

125, 

119. 

0, 

126, 

92, 
119, 

119. 
119. 
126, 

124, 

0, 

126, 
126, 

124, 
124, 

0, 
0, 



124, 

0, 
0, 

119, 
127, 
127, 

0, 
0, 

119, 

0, 

119 > 

0, 

o, 

0, 
0, 
0, 
0, 
0, 

o, 

0, 
0, 

119, 

0, 
0, 

119, 

o, 

119. 

0, 

124, 

o, 

0, 
0, 
0, 
0, 
0, 

119, 

0, 
0, 

o, 
o, 

0, 

124, 

119, 

0, 
0, 

124, 
119, 
119, 

0, 
0, 

119, 

119 » 
92, 

0, 

0, 

126, 

119 » 

o, 

124, 
124, 

91. 
119, 

0, 
0, 



{(1704,5) Set exponent = if negative 

jAdd with exp 26 (ie shift int.pt. to bottom of L), Exit 

1(1727) Store am 
i am- s 

lAdd 1 to bl27 if ^^-^ 
I Add 2 to bl27 if am<s 
(Restore am and exit 
I (I714) Set +1 in A 
{Divide by s and exit 
KI757) Store am 
1 Bring out s 
[Divide by am and exit 
1(1754) 33ctract V6 
!R+ 

I Add zero and standardize, i.e. shift dovm 
iReotore V6 and exit I if result superstandard 

1(1753) Add 12 to exponen-fc 
1(1763 joins) Store am 
I Set in L 

[Shift up one octal place and exit 
1(1756) Store am 
iSet s in A 
I Store 
I Recover am 
I Store in s 

I Reset s in A and exit 
1(1773) Multiply a by s 
I (1752 joins) Subtract 12 from exponent 
1(1762 joins) Preserve exponent in B9I, Also set d20=l 
I Set exponent =12 
[Jump 

1(1773) Sot b92=l2 in exponent position 
isot B121 to point at B92 
1(1473 joins) Standardise 
[Store am 
Is, standardized 
[Store 

{Bring back am 
[Divide by s 

[(1452 continued joins) Store ba (=b92 =12 if 1773) 
[Set into BII9 

1(1755 joins) Set bll9'=bll9-bl24+256 in exponent position 
[Set original bllg in BI24 

DShift bll9 to integer position and subtract 25^, 
I) i.e. original bll9-bl24 in integer posn T?;ith sign propagated 
1(1764,5 joins) FIXING ROTJTII^ . Preserve oxp in B9I, set d20=l 





(94) 

(99) 

1 
2 

(99) 
(96) 


(99) 


(99) 
6*6 

(0) 

(98) 

6*6 

*oi4 

(99) 

(99) 
(o) 

(99) 


1(99) 

(99) 


(99) 



*oi4 

1 

*oi4 

(7i) 
*oi4 
46 
(0) 

1(99) 
o 

2(99) 

1(99) 
2(99) 

(99) 

(99) 

*4 

*4 



-256 

1 , _„____„«.>»»« 

5.1(0) [Jump if bll9 <0, i.e. shift up required, set marker in BI26 

(97) [Jump to exit if bll9=0 

1 [ (Shift doOTi) Negate and add 1 

(0) [Shift dovm one (ensures correct handling of superstandard nos.) 

(97) [Jump to exit if bllg now =0, i.e. one shift only was required 

27 [(Shift up rejoins)) 'set bll9=-27 if bllg <-27 

"27 I )l,e, if out of range 

O I) Shift bll9 to exponent position 

I) 

6(0) [Jump if shift down 

*777 [SHIFT UP, set bllg +VGly in BI24, correcting for 7777 at bottom 

(0) [(1752,62,72 cont join) Standardize i.e. shift up adjusting bl24 

4(0) [Jump if exponent nov/ -ve. i,o, shifted too far 

8(0) iJijmp if oxpcnent >0, i»G, more ?^hift up roqd. Subtract 1 

O [If exp = 0(i,e. correctly shifted) recover original exp 85 exit 

[SHIFT DOVJl^F. Sot bll9 (negative) in BI34 

(93) [Add |- with exponent zero, i.e. shift down correctly and add J 

(99) [Preserve l.s, h 
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331. 


0, 


0, 


344. 


0, 


0, 


521, 


124, 


91. 


364. 


0, 


0, 


2P3, 


126, 


124, 


^^ 121, 


91. 


0, 


124, 


91;: 


513. 


91.; 


Q>; 


7) 237. 


126, 


P, 


234. 


126, 


0, 


725. 


0, 


0, 


734. 


0, 


126. 


77) 350, 


0, 


0, 


300, 


0, 


0, 


76) 356, 


0, 


119, 


342, 


o» 


0, 


356, 


0, 


0, 


355. 


0, 


0, 


302 j 


Q» 


<5. 


356. 


6i 


0; 


334. 


Q. 


Qi 


302; 


0, 


0, 


310, 


6, 


0, 


214* 
35&i 


1^6, 


±21, 


P, 


P. 


234; 


126, 


o> 


1.13; 


9, 


P, 


314. 


6, 


121, 


237. 


121, 


121, 


314. 


0, 


0. 


.^ 237. 
164, 


121, 


121, 


126, 


121, 


521, 


0, 


P, 


311. 


0, 


0, 


356, 


P, 


P,. 


314. 


P. 


0, 


357, 


Q, 


P, 


320, 


p. 


119, 


34-4' 


0, 


9, 


356, 


0, 


119. 


714. 


0, 


P. ■ 


92) *6o2i 


7. 


6 


80) 330, 


0, 


0, 


124, 


124, 


0, 


364. 


0, 


0, 


81) 121, 


93. 


0, 


123, 


91. 


124, 


236, 


126, 


126, 


356, 


0, 


P. 


355. 


P, 


0. 


302, 


0, 


P. 


331. 


P. 


P, 


124, 


93. 


P, 


375 r 


P.: 


ii9. 


121 j 


§2, 


p.: 


101, 


94. 


119, 


12^ 


94. 


0, 


~- 147. 


94. 


119. 


214, 


126, 


94. 


211, 


126, 


126, 


356, 


0, 


0, 


357. 


0, 


0, 


364. 


p, 


0, 


107, 


91. 


p. 
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(93) KShift dovm cont) Romovo ^ from top<no shifting) and clear L 
(99) iRocovor I.E. \ 

O {Rocovor original exponent and exit 

(0) KHoro if chift up beyond standard required) Shift up 

-1(0) , jCycliO counting., .-^-.-.-^^^-^^-^v, ;.',.;:: .; -■ .:i.-^ •;;:;. ^ . ; 

6*6- ' i)S0t?Ap-bynor-7ing'., ■ ,:'/ r ; />./'■..;. T 

6 : I) •, rocovor original oxponont 

6*6 t) and exit '' '■ 

3(0) 1(1706,7) Jump .if -vf^ 

3,4(0) I Jimp if 25oro 

(96) I If positive Get +1 in A and exit 

-100.4 I Set -1 or in A if -ve or zero. Exit 

2(99) 1(1477 with 0.4 in Bi26) REMAINDER . Store quotient 

(94) iTako integer part,= Q SAY 

I '1776 joinG with bl21=0) store Q 

(99) [s denominator (s) ) 

4(99) I Store m.s.'l ) 

(0) iShift 1 to m: . ; )Form a-Qs 

3(99) lNogato> add 1,3 |, of numerator (a) ) (=R say) 

3(99) jstorp: :- J ;'i .:v^::V:;;' 'r .'■ ■■\v / ') ■' 

4(99) l|ritig back Q.s (ih.D.f) ) 

1(99) Imisil of' a-Q/s* ■ ':; ) 

3(99) |Add-l.BV|- of iditto ) 

9(0) jjump to exit if-±477 Ba:=0 or 1776 

4(99) iStoro .Rm ;':^;' \..,;,^"j;..-'., •;;v;...,- -• 

7(p)' jjump tb exit if R=P 

3('S9) Iciear. store line 

(^99) I Read: denominator, numerator, quotient or zero 

b.4 I Change d2l if <0 ) Sot d2l of BI215I 

4(99) I Recover Rm ~ ) if remainder not 

0.4 i Change d21 if <0 ) of required sign 

0,4 I Skip if remainder .vjrong sign 

P ' I Exit if rcmaindor correct sign . 

(99) llf remainder v/rolig sigii, form I^-s, = a-(Q+l)s 

4(99) iStoro (Rrs)m i ■; . -^^ 

(92) jSpt +1 ill Am : ^ 

3(99) iptorp (k-B)i ; . - 

p lAdd 1 to Q (i.e. adjust ) 

3(99) JRocover (R-s)l in L 

b I Store adjusted Q 

4(99) jilooover (R-s)m and exit 

1 Floating-point +1 

(94) I (1476,3126 odd) FIXED PT. DIVISION Take int.pt of am (exp=26) 

*776 ! Subtract 2 from exponent correcting for 1(0) and 19(0) 

(0) I Shift up a so that binary point is 3 places from foot of L 

-2 1(1474,5 join) Set mask 

*746l I Set b9l =25 - exponent, in oxponont position, plus *0007 

5 [Jump if a>0, preserving marker in BI26 . 

(99) fOTHERyiSE NEGATE A. I, o. store m 

(0) i i . . shift up 1 ' , 

(98)' j-^'' ■ '■'■;:■} 'negate' ■■■;'■'■■.. V'.-,^^ 

(99) I and feidd back m negatively 

0,1*4 i also £3ot marks in B93 (positive, odd) 

. . fpivido .by s, Quotient in ,L remainder in M 

-4" l^et.raasic' '■ "'' | ^ '^"■■ 

O |m,s,|: of s ) Sot b94=0 if 

*00077. Imantissa part oiccept sign digit) mantissa of b =0 or -1.0, 

0.4 1*or^ v/ith rest of mantissa ) net b94 y^O otherwise 

(21) iJump if mantissa =0 or -1,0 to sot DO 

7(0) iJump if 1474,5 

(99) [(1476 continues) Store remainder (R) 

1(99) I Store quotient Q 

(0) IShift up Q. one octal placo 

1(99) 13 m. B, bits of Q (mantissa), and reduce oxp part to O 
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215, 


126, 


91. 


(21) 


314. 


0, 


0, 


(99) 


347. 


122, 


0, 





236, 


126, 


0, 


3(0) 


-^ 121, 


124, 


0, 





331. 


0, 


0, 


(96) 


^ 104, 


92, 


0, 


6*6 


104, 
216, 


93. 


0, 


6*6 


126, 


93. 


(21) 


211, 


126, 


93. 


2(0) 


333, 


0, 


0, 


(9S) 


217, 


126, 


93. 


5(0) 


356, 


0, 


0, 


(99) 


335, 


122, 


0, 





336. 


122, 


0, 





334. 


0, 


0, 


(99) 


523. 


124, 


91. 


♦7631 


31) 374. 


0, 


0, 


(98) 


(0) = 


■'400^400 





I (1476 continuod) Jump for DO if Q too largo 

jRocovor R, loaving Q (shifted up) in L 

1(1474,5) Storo Q, clearing L 

jjump if R>0 

I) If R<0, add 1 (fixod point) 

I) to adjust for orror duo to 375 

ICloar Bo, Sot b92>0' and rosot Be if |xa|^|xsl 

1)Jump to DO if |xa|>^|xs|; othorwiso add Qb digit to b93 

{)i.o.set sign of b93 to £ of Q and a 

DNogato R if a<0 Ti.o. to n o t sign of final Q 

I ) giving truo R 

•jjump if final Q>0 

I Storo truo R, 

i)sot -Q as final Q in C(ba) 

I) 

land rocot truo R in A 

i Rosot oxponont for R and oxit 

ICauso DO and monitor oxit 



ITAN 

|If X = 5''^(n+6), whoro -i < & <i 

Ithen tan x = tan (271:6)= p(6)/(l-e.e) if n evon 

I = -cot(i7te)= -(i-e.e)/p(e) if n odd 



362, 


0, 


0, 


(88) 


121 


91. 


0, 


0.1 


217 


126, 


134, 


(83) 


-^ 330 


0, 


0, 


(85) 


^y 330 


0, 


0, 


(86) 


356 


0, 


0, 


(99) 


355 


0, 


0, 


(0) 


107 


91. 


0, 


0.4(99) 


300 


0, 


0, 


(85) 


82) 356 


0, 


0, 


(99) 


343 


0, 


0, 


(99) 


121 


93, 


0, 


3 


356 


0, 


0, 


1(99) 


330 


0, 


0, 


(87) 


346 


, 0, 


0, 


2(99) 


300 


r 0, 


93, 


1(89) 


373 


, 0, 


0, 


1(99) 


203 


r 136, 


92, 


-2(0) 


300 


, 0, 


0, 


(89) 


363 


, 0, 


0, 


(99) 


210 


, 136, 


91. 


(83) 


356 


, 0, 


0. 


1(99) 


335 


, 0, 


0, 


2(99) 


83) 774 


r 0, 


9i. 


1.7<99) 


83) *00. 


14/0 







8G) *o32/o 

87) *ooi/o 

88) *ooo5o574/*6o333447 
80) *oo2i444i/*76652io2 

) *00l56ll6/-03120022 

~" *77767277/*^66l37o 
*773i2i42/*34o7o7i7 
*77i 164517*75471373 



I Multiply X by 2/7C 

I Set marker 

jjump if small (<l/8) 

!Add -i 

i"Fix*', i.o, int.pt. in M, frac.pt. in L 

iStoro int,pt.,=: n-1 

[Sot frac.pt.in M 

I Sot b91= 0.1 if n-1 odd, O otherwise 

[Add -J to frac.pt. Result = 9 

I Storo 9 

I Form 8.9 

I Sot counter 

I Storo e.9 

lAdd -1. Result = -(1-9.9) 

1 Storo -(1-9.9). Clear A 

I Add coefficient ) Form polynomial 

[Multiply by 0.6 ) in 6,9 

ICyclo ) 

I Add 0th coefficient, 

[Multiply by -9.9 Result = -p(9) 

I Jump if n oven 

I If n odd, storo -p(Q) in 1(99) 

iand set+(l-0.e) in A 

iBivido by c(i(99)) ostra) if n odd, result = <i-©.e)/-p<©) 

1-^ 1 by c(2(99)) if n odd, rooult = -p(e)/-(l-e,e). Exit 

jo v/ith oxp 13 

1-1 

13/^ 

i) 

1) 

I) 

I) 

1) 



Coefficionts for p(e) 



30*8.63, 



2751 J4 
2759J4 



H JOOOO3000 

n JOOOOO600 

H J00000140 

H JOOOOOO3O 

H JOOOOOOO6 

H JOO 000000 



J00001400 
JOOOOO3OO 
JOOOOOO6O 
J00000014 

J00000003 

JOOOOOOOO 



H JOOOOOO7O JOOOOOO6O 

H JOOOOOO5O JOOOOOO4O 

H JOOOOOO5O J00000020 

H J0000001 JOOOOOOOO 

H J00000100 JOOOOOOOO 



Extracode constants 



Address 
Character Masks 



Value 



548J2f 



Constants 

Jk 

5^5 J4 

575 J4 

1ifl9 J4 

1420 J4 

1421 J4 

1422 J4 

1480 J4 

1481 J4 

1483 J4 

1484 J4 
1755 J4 

.1757 J4 

1 830 J4 

1831 J4 



H J77 JOO77 

H JOOOO77 7.7 

H 7.7 

H K777.7 J77' 



1+0 
exp 
1/(23C) 
escp 13 

t- ^ 
-4 

logge 
loggS 

+2 

+1 - 
%/2 

-% 
exp 26 
-1 



arg 
arg 



arg 



